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.REM 



lOENTiriCATION 



PRODUCT CODE: 
PRODUCT NAME: 
DATE: 

MAINTAINER: 
AUTHOR: 



AC -85440 -MC 

CZDMCDO DMCll BSC U/R UPROC 
17-JUN-1985 

MK NAC SOFTWARE ENGINEERING 
BRUCE LUHRS 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT. 

NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 
COMPANIES 



COPYRIGHT CO 1976. 1978. 1985 BY DIGITAL EQUIPMENT CORPORATION 
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1 . ABSTRACT 

THE FUNCTION Of THE DMCll DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFjy THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
OF THE OHCll ARE CORRECT IN ITS ENVIRONMENT. 

PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
DMCll CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
STATUS TABLE AND ARE GENERATED IN TUO WAYS: 1) MANUAL 
INPUT - THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 
PROGRAM DEI ERMINES THE PARAMETERS AUTOMATICALLY. 

CZDMG TESTS THE DMCll MICRO-PROCESSOR (M8200-YA OR M8200-YB). 
IT PERFORMS URITE/REAO TESTS ON THE OMC UNIBUS REGISTERS. 
CHECKS THE MICRO -PROCESSOR OPERATION, CHECKS OUT MAIN MEMORY. 
SCRATCH PAD MEMORY. THE ALU FIMCTIONS AS WELL AS INTERRUPTS 
AND NPR OPERATION. CZDMC PERFORMS NO TESTS ON THE LINE UNIT 
OR ANY CROM DEPENDENT TESTS. IT DOES NOT REQUIRE A LINE UNIT 
TO RUN. NOTE: THIS DIAGNOSTIC WILL RUN ON A KMC 11 (M8204). 
HOWEVER IT IS NOT ADVISED THAT THIS DIAGNOSTIC BE USED TO 
CHECK A KMCll. RATHER YOU SHOULD CHECK A KMCll WITH THE KMCll 
DIAGNOSTIC PACKAGE. 

CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE. 

NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FIVE DIAGNOSTICS ARE: 

1. CZDMC [REV] BASIC U/R AND MICRO-PROCESSOR TESTS 

2. CZDME [REVl DDCMP MODE LINE IWIT TESTS 
5, DZOMF [REV] BITSTUFF LINE UNIT TESTS 

4. DZDMG [REVl JUMP AND CROM TESTS 

5. DZOMH [REV] FREE-RUNNING TESTS (HEAT TEST TAPE) 

2. REQUIREMENTS 

2.1 EQUIPMENT 

ANY PDPll FAMILY CPU (EXCEPT AN LSI-11) WITH MINIMUM 8K MEMORY 
ASR 33 (OR EQUILIVALENT) 

DMCll-AR (n8200 YA) OR A DMCll-AL (M8200-YB) 
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2.2 STORAGE 

PROGRAM HILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND 
BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 1640; CONTAIN 
THE -STATUS TABLE" INFORMATION WHICH IS GENERATED AT START OF 
DIAGNOSTICS BY MANUAL INPUT (QUESTIONS ) OR AUTOMATICALLY 
(AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
ALTERED BY THE OPERATOR. 

3. LOADING PROCEDURE 

3.1 METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 
AS DISK . MAGTAPE. DECTAPE. OR CASSETTE: FOLLOW INSTRUCTIONS 
FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 
MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS *500 

MEMORY * SIZE 

4K 17 

8K 37 

12K 57 

16K 77 

20K 117 

24K 137 

28K 157 



3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 

(ALSO PLACE 'HALT' SU UP) 

3.1.2 DEPRESS 'LOAD ADDRESS' KEY ON CONSOLE AND RELEASE. 

3.1.3 DEPRESS 'START KEY' ON CONSOLE AND RELEASE (PROGRAM SHOULD NOU 
BE LOADING INTO CPU) 
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4. STARTING PROCEDURE 

A. SET SUITCH REGISTER TO 000200 

B. DEPRESS 'LOAD ADDRESS' KEY AND RELEASE 

C. SET SUR TO ZERO FOR 'AUTO SIZING' OR SWR BITO-l FOR MANUAL 
INPUT (QUESTIONS) OR SUR BIT7«1 TO USE EXISTING PARAMETERS 
SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN OMCll 
DIAGNOSTIC . 

0. DEPRESS 'START KEY' AND RELEASE. THE PROGRAM WILL TYPE 
MAINDEC NAME km PROGRAM NAME (IF THIS UAS THE FIRST START 
UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 

MAP OF DMCll STATUS 



PC CSR STATl STAT2 STATS 



001500 160010 145310 177777 000000 
001510 160020 145320 177777 000000 

THE PROGRAM WILL TYPE 'R' AND PROCEED TO RUN THE DIAGNOSTIC. 
THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADO. 1500 IN THE PROGRAM. IN THIS EXAMPLE 
THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMCll' S. 
THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO SIZING 
IS DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 
HELP. 

IF THE DIAGNOSTIC UAS STARTED WITH SU00«1 INDICATING MANUAL 
PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 
QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 

HOW MANY OMCll 'S TO BE TESTE071 

01 

CSR A00RESS7160010 

VECTOR ADDRESS ?3 10 

BR PRIORITY LEVEL? (4. 5.6.7)75 

DOES MICRO -PROCESSOR HAVE CRAM? (Y OR N)N 

WHICH LINE UNIT? IF NONE TYPE "N". IF M8201 TYPE "1". IF 

M8202 TYPE ''2'?1 

IS THE LOOP BACK CONNECTOR ON?Y 

SWITCH PAC<H (DDCMP LINE#)?377 

SWITCH PAC*2 (BM873 BOOT A0D)?377 

FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 
DESCRIBED ABOVE. THE INFORMATION IN THE MAP REFLECTS THE 
ANSWERS TO THE QUESTIONS. IF THE DIAGNOSTIC WAS STARTED WITH 
SWOO-0 AND SW07''0 (AUTO-SIZING) THEN NO QUESTIONS ARE ASKED 
AND ONLY THE STATUS -MAP IS PRINTED OUT. IF AUTO- SIZING IS 
USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT 
(MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 
DIAGNOSTIC MUST BE RESTARTED WITH SW00>1 AND THE QUESTIONS 
ANSWERED. 
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58 
59 

60 4.1 CONTROL SUITCH SETTINGS 

61 

62 5U 15 SET: HALT ON ERROR 

63 SU 14 SET: LOOP ON CURRENT TEST 

64 SU 13 SET: INHIBIT ERROR PRINT OUT 

65 SU 12 SET: INHIBIT TYPE OUT/ABELL ON ERROR. 

66 SU 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 

67 SU 10 SET: ESCAPE TO NEXT TEST ON ERROR 
6a SU 09 SET: LOOP UITH CURRENT DATA 

69 SU 08 SET: CATCH ERROR AND LOOP ON IT 

70 SU 07 SET: USE PREVIOUS STATUS TABLE. 

71 SU 06 SET: HALT IN ROMCLK ROUTINE BEFORE CLOCKING 

72 HICRO-PROCESSOR 

73 SU 05 SET: RESERVED 

74 SU 04 SET: RESERVED 

75 SU 03 SET: RESELECT DMCll'S DESIRED ACTIVE 

76 SU 02 SET: LOCK ON SELECTED TEST 

77 SU 01 SET: RESTART PROGRAM AT SELECTED TEST 

78 SU 00 SET: BUILD NEU STATUS TABLE FROM QUESTIONS. (IF SU07-0 

79 AND SUOO-0 A NEU STATUS TABLE IS BUILT BY 

80 AUTO SIZING) 
81 

82 SUITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 

83 UHILE THE DIAGNOSTIC IS RUNNING. SUITCHES 00-03 AND SUITCH 07 

84 ARE STATIC. AND ARE USED ONLY ON STARTING OR RESTARTING THE 

85 DIAGNOSTIC. 
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1 
2 

3 4,1.2 SWITCH REGISTER OPTIONS (AT START UP) 

4 

5 SW 01 RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 

6 SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 

7 TRYING TO SELECT "A TEST. THE REASON BEING IS THAT THE 
0 PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
9 WHEN THIS SWITCH TS USED THE DIAGNOSTIC WILL ASK TEST 

10 NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 

11 AND CARRIGE RETURN TO BEGIN EXECUTION AT THE SELECTED 

12 TEST. 
IS 

14 SW 02 LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 

15 SWOl WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 

16 SELECTED TEST. HITTING ANY KEY ON THE CONSOLE WILL 

17 LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
19 . IS HIT AGAIN. IF SW02-0 WHEN SWOl IS USED. THE 

19 PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 

20 NORMAL OPERATIONS. 
21 

22 SW 03 RESELECT DMCll'S DESIRED ACTIVE. PLEASE NOTE THAT A 

23 MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 

24 EQUAL TO DMCll'S ACTIVE. THIS MEANS IF THE SYSTEM HAS 

25 FOUR OMCllS; BITS 00.01.02,03 WILL BE SET IN LOC 

26 'DMACTV FROM THE SWITCH REGISTER. USING THIS 

27 SWITCH(SWOO) ALTERS THAT LOCATION; THEREFORE IF FOUR 

28 OMCllS ARE IN THE SYSTEM ***D0 NOT*** SET SWITCHS 

29 GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD BE 

30 A FATAL ERROR. DO NOT SELECT MORE ACTIVE DMCllS THAN 

31 THERE IS INFORMATION ON IN THE STATUS TABLE. 
32 

33 - METHOD: A: LOAD ADDRESS 200 

34 6: START WITH SW 00-1 

35 C: PRMRAM WILL TYPE MESSAGE 

36 0: SET A SWITCH FQR EACH DMC DESIRED ACTIVE. 

37 EXAMPLE: IF YOU HAVE 4 OMC'S BUT ONLY WANT TO 

38 RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 

39 3-1. PRESS CONTINUE 

40 E: NUMBER (IF VALID) WILL BE IN DATA LIGHTS 

41 (EXCLUDING 11/05) 

42 F: SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 

43 PRESS CONTINUE. 
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1 

2 



3 4.1.3 DYNAMIC SUITCHES 

4 

5 ERROR SUITCHES 
6 

7 1. SU 12 DELETE PRINT OUT /BELL ON ERROR. 

8 2. SU 13 DELETE ERROR PRINTOUT. 

9 3. SU 15 HALT ON THE ERROR. 

10 4. SU 08 GOTO BEGINNING OF THE TEST CON ERROR). 

11 5. SU 10 GOTO NcXT TESTCON ERROR). 
12 

13 SCOPE SUITCHES 
14 

15 1, SU06 HALT IN ROMCLK ROUTINE BEFORE CLOCKING 

16 MICRO-PROCESSOR INSTRUCTION. THIS ALLOUS THE 

17 OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 

18 THE STATIC STATE BEFORE IT IS CLOCKED. HIT 

19 CONTINUE TO RESUME RUNNING. 

20 2. SU09 CIF ENABLED BY 'SCOPl') ON AN ERROR; IF AN •*' IS 

21 PRINTED IN FRONT OF THE TEST NO. CEX. *TEST NO. 

22 10 ) SU09 IS INCORPORATED IN THAT TEST AND 

23 THEREFORE SU09 IS USUALLY THE BEST SUITCH FOR THE 

24 SCOPE LOOP (SU14-0. SUIO-O. SU09-1. SU08-0). IF 

25 SU09 IS NOT ENABELEO: AND THERE IS A HARD ERROR 

26 (CONSTANT)! SU08 IS BEST. (SU14-1.0. SU10«0, 

27 SU09-0, SU08-1). FOR INTERMITTEMT ERRORS; SU14-1 

28 UILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 

29 ERROR. (SU14-1. SUIO-O. SU09-0. SU08-1.0) 

30 3. SUll INHIBIT INTERATIONS. 

31 4. SU14 LOOP ON CURRENT TEST. 
32 

33 4.2 STARTING ADDRESS 

34 

35 STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 

36 ADDRESSES FOR THE OMCll DIAGNOSTICS. (SEE SECTION 4.0) 
37 

38 NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 

39 IS UNDER ACTll OR XXDP CONTROL AND UILL ACT 

40 ACCORDINGLY AFTER ALL AVAILABLE DMCll'S ARE TESTED THE 

41 PROGRAM UILL RETURN TO 'XXDP' OR 'ACT-11'. 
42 

43 5. OPERATING PROCEDURE 

44 

45 UHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 

46 SECTION 4.0 UILL BE PRINTED, AND PROGRAM UILL BEGIN RUNNING 

47 THE DIAGNOSTIC 
48 
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5.2 PROGRAM AND/OR OPERATOR ACTION 
THE ■'YPICAL APPROACH SHOULD BE 

1. HAL7 ON ER»OR (VTA SU 15-1) WHEN EVER AN ERROR OCCURS. 

2. CLEAR SU 15. 

3. SET SJ 14: (LOOP ON THIS TEST) 

4. SET SU 13: (INHIBIT ERROR PRINT OUT) 

THE TEST NUMBER AND PC UlLL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOU MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
THE LISTING FOR THAT TEST NUMBER UHICH UAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT THIS UAY THE EXACT FUNCTION OF 
THE TEST CAN BE DETERMINED. 

6. ERRORS 

AS DESCRIBED PREVIOUSLY THERE UILL ALUAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SU 13«0 AND SU 
12»0). IN MOST CASES ADDITIONAL INFORMATION UILL BE SUPPLIED 
IN THE THE ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 
THE ERROR. 

6.2 ERROR RECOVERY 

IF FOR SOME REASON THE OMCll SHOULD 'HANG THE BUS' (GAIN 
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POUER DOUN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 
•TSTNO' (ADDRESS 1226)F0R THE NUMBER OF THE TEST THAT UAS 
RUWING AT THE TI»€ OF THE CATASTROPHIC ERROR. IN THIS UAY 
THE OPERATOR UILL HAVE AN IDEA AS TO UHAT THE OMCll UAS DOING 
AT THE TIME OF THE ERROR. 

7. RESTRICTIONS 

7.1 STARTING RESTRICTIONS 

SEE SECTION 4. (PLEASE) 

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOU PROGRAM UAS 
STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG UITH 
THE INFORMATION PRINTED ON THE TTY TO COMPLETLY ISOLATE 
PROBLEMS. 
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7.2 OPERATING RESTRICTIONS 

THE PIRST TIME A DMCll DIAGNOSTIC IS LOADED INTO CORE AND RUN 
THE STATUS TABLE MUST BE SET UP. THIS IS OONE BY MANUAL INPUT 
(SWOO-1) OR BY AUTOSIZING (SWOO-O AND SU07-0). THEREAFTER 
HOWEVER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 
RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC BECAUSE THE 
STATUS TABLE IS OVERLAYED. THE CURRENT PARAMETERS IN THE 
STATUS TABLE ARE USED UHEN SU07-1 ON START UP. 

7.3 HARDWARE CONFIGURATION RESTRICTIONS 

0MC11(M8200) JUMPER Ul MUST BE IN, AND SWITCH 7 OF E76 MUST 
BE IN THE OFF POSITION. 

KMC(M8204)- JUMPER Ml MUST BE IN. 

8. MISCELLANEOUS 

8.1 EXECUTION TIME 

ALL OMCll DEVICE DIAGNOSTICS WILL GIVE AN 'END PASS' MESSAGE 
(PROVIDING NO ERRORS AND SW12-0) WITHIN 4 MINS. THIS IS 
ASSUMING SUll-1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
ON THE POP 11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 
SYSTEM. 

8.2 PASS COMPLETE 

NOTE: EVERY TIME THE PROGRAM IS STARTED: THE TESTS WILL RUN 
AS IF SWll (DELETE ITERATIONS) WAS UP (-1). THIS IS TO 
'VERIFY NO HARD ERRORS' AS SOON AS POSSIBLE. THEREFORE THE 
FIRST PASS -EACH TIME PROGRAM IS STARTED- WILL BE A 'QUICK 
PASS' UNTIL ALL DMCll' S IN SYSTEM ARE TESTED. WHEN THE 
DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
THE PRINT OUT TO BE EXPECTED. 

END PASS CZOMC CSR: 175000 VEC: 0300 PASSES: 000001 
ERRORS: 000000 

NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 
EACH OMCll THAT IS RUNNING. AND ARE SET TO ZERO ONLY 
UHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 
OVERNIGHT RUN FOR EXAMPLE. THE TOTAL PASSES AND ERRORS 
FOR EACH OMCll SINCE THE DIAGNOSTIC WAS STARTED ARE 
REFLECTED IN PASSES: AND ERRORS:. 
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S.4 



KEY LOCATIONS 
RETURN (1214) 

NEXT (1216) 
TSTNO (1226) 
RUN (1316) 



DnCR00-DnCR17 
DMST00-DMST17 
(1500) (1640) 



DMACTV (1306) 



OnCSR (1404) 



CONTAINS THE ADDRESS WHERE PROGRAH MILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 



CONTAINS THE ADDRESS OF THE NEXT 
REFORMED. 



CONTAINS THE NUMBER 
REFORMED. 



OF 



TEST TO BE 
THE TEST NOU BEING 



THE BIT IN 'RUN' ALWAYS POINTS TO THE DMCll 

CURRENTLY BEING TESTED. EXAMPLE: (RUN) 

1302/0000000001000000 MEANS THAT OMCll NO. 06 
IS THE DMCll NOW RUNNING. 



THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) DMCllS SEQUENTIALY. 
THEY CONTAIN THE CSR, VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH DMCll. 

EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED DMCll WILL BE TESTED IN TURN. 
EXAMPLE: (DMACTV) 1276/0000000000011111 MEANS 
THAT DMCll NO. 00.01.02.03.04 WILL BE TESTED. 
EXAMPLE: (DMACTV) 1276/0000000000010001 MEANS 
THAT DHCll NO. 00,04 WILL BE TESTED. 



CONTAINS THE CSR OF THE 
TEST. 



CURRENT DHCll UNDER 



8.4A 



STATUS TABLE' (1500-1640) 



THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION. 

THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO OMCll'S. THE TABLE CAN CONTAIN UP TO 16 DMCll' S. 
FOLLOWING THE HAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 
ENTRY 



PC 



MAP OF DMCll STATUS 



CSR STATl STAT2 STAT3 



001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 



czonc 



5S 
59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 



flACRO V04.00 27-JUN'85 13:16:37 PAGE 9 1 



EACH MAP ENTRY CONTAINS ^ORDS UHICH CONTAIN THE STATUS 

INFORMATION FOR 1 DMCll. THE PC SHOWS WHERE IN CORE MEMORY 
THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 
CMC'S STATUS IS IN LOCATIONS. 1500. 1502, 1504. AND 1506. THE 
SECOND DMC STATUS IS LOCATED AT 1510. 1512. 1514. AND 1516. 
THE INFORMATION CONTAINED IN EACH 4 WORD ENTRY IS DEFINED AS 
FOLLOWS: 

CSR: CONTAINS DMCll CSR ADDRESS 

STATl: BITS 00-08 IS DMCll VECTOR ADDRESS 
BIT15-1 MICRO -PROCESSOR HAS CRAM 
BIT15-0 MICRO-PROCESSOR HAS CROM 
BIT14>1 TURNAROUND CONNECTOR IS ON 
BIT14-0 NO TURNAROUND CONNECTOR 
BIT13-0 LINE UNIT IS AN M8201 
BIT13-1 LINE UNIT IS AN M8202 
BIT12-1 NO LINE UNIT 
BITS 09-11 IS DMCll BR PRIORITY LEVEL 

STAT2: LOW BYTE IS SWITCH PAC«1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC«2 (BM873 BOOT ADD) 

STAT3: BIT0»1 RUN FREE RUNNING TESTS ON KMCll 
BITl-O OMCll-AR (LOW SPEED) 
BITl-1 DMCll -AL (HIGH SPEED) 



SEQ 12 
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1 
2 

3 8.5 nETHOO OF AUTO SIZING 
4 

5 8.5.1 FINDING THE CONTROL STATUS REGISTER. 

6 

7 THE AUTO-SIZING ROUTINE FINDS A DHCll AS FOLLOUS: IT STARTS 

8 AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 

9 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 

10 OUT. THE FOLLOWING IS DONE. THE FIRST CROM ADDRESS IS WRITTEN 

11 TO A 125252 THEN IT IS READ BACK. IF IT CONTAINS A -1 OR 

12 125252 OR 626 OR 16520 A DMCll OR KMCll HAS BEEN FOUND. IF 

13 NOT. THE ADDRESS IS UPDATED BY 10 AND THE SEARCH CONTINUES. A 

14 -1 INDICATES A OMCll WITH NO CROM. A 125252 INDICATES A KMCll 

15 WITH CRAM. A 626 INDICATES A DMCll-AL AND A 16520 INDICATES A 

16 OMCll-AR. FURTHER TESTS ARE PERFORMED AT THIS POINT TO 

17 DETERMINE WHICH LINE UNIT. IF ANY. IS INSTALLED. IF A 

18 LOOP-BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH SETTINGS 

19 ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST BE 

20 VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 

21 AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 

22 THE QUESTIONS MUST BE ANSWERED. ALL DMCll' S IN THE SYSTEM 

25 WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FIND A OMCll 
24 THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED. 
25 

26 8.5.2 FINDING THE VECTOR AND BR LEVEL 

28 THE VECTOR AREA (ADDRESS 300-776) IS FILLED WITH THE 

29 INSTRUCTION lOT AND '.*2' (NEXT ADDRESS). THE PROCESSOR 

30 STATUS IS STARTED AT 7 AND THE CMC IS PROGRAMMED TO INTERRUPT. 

31 THE PS IS LOWERED BY I UNTIL THE DHC INTERRUPTS, A DELAY IS 

32 MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 

33 BAD DMCll) THE PRXRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 

34 5 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 

35 PROBLEM IS FIXED > THE PROGRAM SHOULD BE RE- SETUP AGAIN TO GET 

36 CORRECT VECTOR. IF AN INTERUPT OCCUREDi THE ADDRESS TO WHICH 

37 THE DMCll INTERUPTEO TO IS PICKED UP AND REPORTED AS THE 
30 VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 

39 UP BY YOU} THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 

40 DONE. 
41 

42 8.6 SOFTWARE SWITCH REGISTER 
43 

44 IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 

45 SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 

46 ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 

47 IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOES 

48 AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 

49 REGISTER IS USED. 
50 

51 CONTROL: 
52 

53 TO OBTAIN CONTROL AT ANY ALLOWABLE TIME DURING EXECUTION OF 

54 THE DIAGNOSTIC THE OPERATOR TYPES A CTRL 6 ON THE CONSOLE 

55 TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED. BY 

56 THE DIAGNOSTIC. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 
57 
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58 

S9 SWR«XXXXXX NEW? 
60 

61 MHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWITCH 

62 REGISTER IN OCTAL. THE SOFTWARE CWTROL ROUTINE WILL THEN 

63 AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 

64 TO TYPE ONE OR MORE OF THE LEGAL CHARACTERS: 1) 0 - 7. 2) 

65 LINE FEED(<LF>), 3) CARRIAGE RETURNC < CR > ) . OR 4) CONTROL -U 

66 (CTRL U). NO CHECK IS MADE FOR LEGALITY. IF THE INPUT 

67 CHARACTER IS NOT A <LF>. <CR>. OR CTRL U IT IS ASSUMED TO BE 

68 AN OCTAL DIGIT. 
69 

70 TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 

71 THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE 

72 TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF> 

73 DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 

74 THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 

75 AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 

76 PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 

78 WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC 

79 WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS 

80 INTERRUPTED, IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 

81 WILL CONTINUE WITHOUT CHANGING THE SSR. THE <LF> DIFFERS FROM 

82 THE <CR> BY RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 

83 ADDRESS 200. 
84 

85 IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 

86 THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 

87 PROMPT DISPLAYED CSWR - XXXXXX NEW?). 
88 

89 TO SET THE SSR FOR THE STARTING SWITCHES. FIRST LOAD THE 

90 DIAGNOSTIC. Th -N HIT CTRL 6. THEN START THE DIAGNOSTIC. 
91 

92 
93 
94 

95 e 



SEO 14 
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IHffiODOCllOh TO OHCll OIACNOSCTXC 

1683 



j«AC-8544C-MC CZDHC DO BASIC DMCll CONTROLLER TEST 

i^COPYRIGHT 1976.1978. DIGITAL EQUIPMENT CORP.. MAYNARD. MASS. 01754 



s STARTING PROCEDURE 

iLOAO PROGRAM 

(LOAD ADDRESS 000200 

jSlW'O AUTOSIZE DMCll 

iSU07*l USE CURRENT DMCll PARAMETERS 

iSUOO>l INPUT NEU DMCll PARAMETERS 

■PRESS START 

jpROGRAM MILL TYPE -AC-8544C-MC CZOMC-DO BASIC DMCll CONTROLLER TEST" 
:PROGRAM i<ILL TYPE STATUS MAP 

:PROGRAM UILL TYPE "R" TO INDICATE THAT TESTING HAS STARTED 
;AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
J AND THEN RESUME TESTING 

J SUBSEQUENT RESTARTS UILL NOT TYPE PROGRAM TITLE 



iSUITCH REGISTER OPTIONS 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



SU15- 100000 
SU14 -40000 
SU13-20000 
SU 12 -10000 
SUll-4000 
SUlO-2000 
SU09-1000 
SU08-400 
SU07-200 
SU06-100 
SU05-40 
SU04-20 
■10 
■4 
'2 
■1 



SU03' 
SU02' 
SU01> 
SU00> 



l.HALT ON ERROR 

l.LOOP ON CURRENT TEST 

1, INHIBIT ERROR TYPEOUT 

1. DELETE TYPEOUT /BELL ON ERROR. 

1. INHIBIT ITERATIONS 

1. ESCAPE TO NEXT TEST ON ERROR 

l.LOOP UITH CURRENT DATA 

l.LOOP ON ERROR 

l.USE CURRENT DMCll PARAMETERS. 



'.AUTOSIZE DMCll 



1, HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 



;RESELECT DMCll' S TO BE TESTED (ACTIVE) 
sLOCK ON TEST SELECT 
; RESTART PROGRAM AT SELECTED TEST 
(INPUT DMCll PARAMETERS 
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GCNERAL OEFXNATIONS AND eOUIVALCNCIES 



SEQ 15 



0 

:REGISTER DEFINITIONS 



000000 R0>«0 {GENERAL REGISTER 

000001 Rl-«1 {GENERAL REGISTER 

000002 R2>«2 i GENERAL REGISTER 

000003 R3>«3 s GENERAL REGISTER 

000004 R4-M s GENERAL REGISTER 

000005 R5-<5 {GENERAL REGISTER 

000006 SP-«6 {PROCESSOR STACK POINTER 

000007 PC*«7 :PR0GRAt1 COUNTER 

: LOCATION EQUIVALENCIES 



177776 PS-177776 {PROCESSOR STATUS UORD 

001200 STACK- 1200 : START Or PROCESSOR STACK 

••INSTRUCTION OEFINITIONS 



005746 PUSHlSP-5746 jOECREHENT PROCESSOR STACK 1 UORD 

005726 P0P1SP«5726 {INCREMTNT PROCESSO" STACK 1 UORD 

010046 PUSHRO-10046 {SAVE RO ON STACK 

012600 POPRO- 12600 {RESTORE RO PROM STACK 

024646 PUSH2SP-24646 {DECREMENT STACK TUICE 

022626 P0P2SP-22626 jINCREtCNT STACK TUICE 

:BIT DEFINITIONS 

............ 

ICOOOO BIT15-100000 

040000 BIT14>40000 

020000 BIT 13* 20000 

010000 BIT12- 10000 

004000 BIT11>4000 

002000 BITlO-2000 

001000 BIT9-1000 

000400 BIT8-400 

000200 BIT7»200 

000100 BIT6-100 

000040 BITS -40 

000020 BIT4-20 

000010 BIT3-10 

000004 BIT2-4 

000002 BITl-2 

000001 BITO-1 
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TRAPCATCHeR FOR UNCXPECTEO INTERUPTS 



000000 



:TRAPCATCHER FOR ILLEGAL INTERRUPTS 
{THE STANDARD "TRAP CATCHER- IS PLACED 
iBETUEEN ADDRESS 0 TO ADDRESS 776. 
;IT LOOKS LIKE "PCS HALT". 



{STANDARD INTERRUPT VECTORS 



000024 
000024 005336 
000026 000340 
000030 004750 
000032 000340 
000034 004716 
000036 000340 

000040 
000040 000000 
OC0042 000000 
000044 000000 
000046 003522 

000052 
000052 000000 

000174 
000174 000000 
000176 000000 

000200 
000200 000137 002002 



•24 



■40 



'52 



•PFAIL 
340 
.HLT 
340 

.TRPSRV 
340 

0 
0 
0 

tENOAD 



.-174 
DISPREGiO 
SUREG: 0 



•200 



JMP 



.START 



POWER FAIL HANDLER 

SERVICE AT LEVEL 7 

ERROR HANDLER 

SERVICE AT LEVEL 7 

GENERAL HANDLER DISPATCH SERVICE 

SERVICE AT LEVEL 7 

SAVE FOR ACT- 11 OR XXDP 

RETURN ADDRESS IF UNDER ACT 11 OR XXDP 

SAVE FOR ACT -11 OR XXDP 

FOR USE WITH ACT -11 OR XXDP 

;ACT-11 PROGRAM CHARACTERISTICS 



.•SOFTWARE DISPLAY REGISTER 
: SOFTWARE SWITCH REGISTER 



iGO TO START OF PROGRAM 



001000 
001016 



001000 
377 
103 

001200 



012 
132 



.«1000 
101 MTITLE: 
104 



.ASCII <377><12>/'AC-8544C-MC/'<377> 

.ASCIZ /CZDMC-DO BASIC DMCll CONTROLLER TEST/ < 377 > 



••1200 

i INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 



001200 177570 
001202 177570 



DISPLAY: 177570 
SWR: 177570 
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PROGRAM PARAHETERS, VARIABLES. AND TRAP CALLS. 



SEQ 17 



001204 177560 

001206 177562 

001210 177564 

001212 177566 



s INDIRECT POINTERS TO TELETYPE VECTORS AND REGIS lERS 



TKCSR 
TKOBR 
TPCSR 
TPOBR 



177560 
177562 
177564 
177566 



; PROGRAM CONTROL PARAMETERS 



TELETYPE KEYBOARD CONTROL REGISTER 
TELETYPE KEYBOARD DATA BUFFER 
TELEPRINTER CONTROL REGISTER 
TELEPRINTER DATA BUFFER 



001214 
0012X6 
001220 
001222 
001224 
001226 
001230 
001232 
001234 



000000 
000000 
000000 
000003 
000000 
000000 
000000 
000000 
000000 



RETURN: 0 

NEXT: 0 

LOCK: 0 

ICOUNT: 3 

LPCNT: 0 

TSTNO: 0 

PASCNT: 0 

ERRCNT: 0 

LSTERR: 0 

: PROGRAM VARIABLES 



SCOPE ADDRESS FOR LOOP ON TEST 
ADDRESS OF NEXT TEST TO BE EXECUTED 
ADDRESS FOR LOCK ON CURRENT DATA 

NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
jNUMBER OF ITEREATIONS COMPLETED 
{NUMBER OF TEST IN PROGRESS 

NUMBER OF PASSES COMPLETED 

TOTAL NUMBER OF ERRORS 

PC OF LAST ERROR CALL 



001236 


000000 


STRTSU: 0 iSUI^rHES AT START OF PROGRAM 


001240 


000000 


STAT: 


0 :DM STATUS UORO STORAGE 


001242 


000000 


CLKX: 


0 




001244 


000000 


MASKX 


0 




001246 


000000 


TEMPI 


0 


TEMPORARY STORAGE 


001250 


000000 


TEMP2 


0 


TEMPORARY STORAGE 


001252 


000000 


TEMP3 


0 


TEMPORARY STORAGE 


001254 


000000 


TEMP4 


0 


TEMPORARY STORAGE 


001256 


000000 


TEMPS 


0 


TEMPORARY STORAGE 


001260 


000000 


SAVRO 


0 


RO STORAGE 


001262 


000000 


SAVRl 


0 


Rl STORAGE 


001264 


000000 


SAVR2 


0 


R2 STORAGE 


001266 


000000 


SAVR3 


0 


R3 STORAGE 


001270 


000000 


SAVR4 


0 


R4 STORAGE 


001272 


000000 


SAVR5 


0 


R5 STORAGE 


001274 


000000 


SAVSP 


0 


STACK POINTER STORAGE 


001276 


000000 


SAVPC 


0 


PROGRAM COUNTER STORAGE 


001300 


000000 


ZERO: 


0 




001302 


000001 


ONE: 


1 




001304 


000000 


MEMLIM: 0 


HIGHEST LOCATION FOR NPR'S 


001306 




DMACTV: .BLKU 1 


DMCll'S SELECTED ACTIVE. 


001310 




DMNUM 


.BLKU 1 


OCTAL NUMBER OF DMCll'S. 


001312 




SAVACT: .BLKU 1 


ORIGINAL ACTV DEVICES 


001314 




SAVNUM: .BLKU 1 


UORKABLE NUMBER 


001316 


000000 


RUN: 


0 


POINTER TO RUrmiNG DEVICE. 






.EVEN 






001320 


001472 


CREAM: DM.MAP-6 ;TABLE POINTER. 


001322 


001676 


MILK: 


CNT.MAP-4 ; TABLE POINTER 
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PRKRAM PARAMETERS. VARIABLES. AND TRAP CALLS. 



SEQ 19 



: PROGRAM CONTROL FLAGS 



001324 
001325 
001326 
001327 



000 
000 
000 
000 



INIFLG 
ERRFLG 
LOKFLG 
QV.FLG 

• EVEN 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



0 
0 
0 
0 



PROGRAM INITIALIZATION FLAG 
ERROR OCCURED FLAG 
LOCK ON CURRENT TEST FLAG 
QUICK VERIFY FLAG. 

ON FIRST PASS OF EACH OMCll ITERATIONS WILL BE SUPPRESSED. 



:0EFINITI0NS FOR TRAP SUBROUTINE CALLS 

sPOINTERS TO SUBROUTINES CAN BE FOUND 

sIN THE TABLE IMMEDIATLY FOLLOUING THE DEFINITIONS 







TRPTAB- 










104400 


SCOPE>TRAP*0 


• CALL 


TO 


SCDPF LOOP AND TTFRATTnM HAMDI PD 


001330 


003576 


.SCOPE 










104401 


SCOPl'TRAP*! 


jCALL 


TO 


LOOP ON CURRFNT flATA HANOI PR 


001332 


003736 


.SCOPl 










104402 


TYPE>TRAP*2 


• CALL 


TO 


TELETYPE OUTPUT ROUTTNF 


0C1334 


003766 


.TYPE 










104403 


INSTR«TRAP*3 


• CALL 


TO 


ASCII STRING INPUT ROUTINE 


001336 


004050 


.INSTR 










104404 


INSTER-TRAP*4 


sCALL 


TO 


INPUT ERROR HANDLER 


001340 


004154 


.INSTER 










104405 


PARAM-TRAP»5 


iCALL 


TO 


NUMERICAL DATA INPUT ROUTINE 


001342 


004174 


.PAR AM 










104406 


SAV0S«TRAP*6 


iCALL 


TO 


REGISTER SAVE ROUTINE 


001344 


004374 


.SAV05 










104407 


RES05-TRAP*? 


:CALL 


TO 


REGISTER RESTORE ROUTINE 


001346 


004434 


.RESOS 










104410 


C0NVRT-TRAP*10 


iCALL 


TO 


DATA OUTPUT ROUTINE 


001350 


004466 


.CONVRT 










104411 


CNVRT-TRAP*11 


iCALL 


TO 


DATA OUTPUT ROUNTINE WITHOUT CR/LF. 


001352 


004472 


.CNVRT 










104412 


MSTCLR-TRAP.12 


:CALL 


TO 


ISUE A MASTER CLEAR 


001354 


005466 


.MSTCLR 










104413 


0ELAY-TRAP»13 


:CALL 


TO 


DELAY 


001356 


005436 


.DELAY 










104414 


R0MCLK-TRAP»14 


iCALL 


TO 


CLOCK ROM ONCE 


001360 


005504 


.ROWXK 










104415 


DATACLK-TRAP»15 


:CALL 


TO 


CLK DATA 


001362 


005552 


.DATACLK 










104416 


TIMER- TRAP ^16 


sCALL 


TO 


DELAY A CLOCK TICK 


001364 


005616 


.TIMER 









•A******************************************************************* 
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PROGRAH PARAMETERS. VARIABLES. AND TRAP CALLS. 



SEQ 19 



:DMC11 CONTROL INDICATORS FOR CURRENT DMCH UNDER TEST 



001366 000000 
001370 000000 
001372 000000 



STATl 
STAT2 
STAT3 



0 
0 
0 



sDMCll VECTOR AND REGISTER ItCIRECT POINTERS 



001374 
001376 
001400 
001402 
001404 
001406 
001410 
001412 
001414 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



DMRVEC: 0 

OMRLVL: 0 

OMTVEC: 0 

OMTLVL: 0 

DMCSR: 0 

OMCSRH: 0 

OMCTL: 0 

0MP04: 0 

DnP06: 0 

:TEMP STORAGE 



POINTER TO DMCll RECEIVER INTERRUPT VECTOR 
POINTER TO DMCll RECEIVER INTERRUPT SERVICE PS 
POINTER TO DMCll TRANSMITTER INTERRUPT VECTOR 
POINTER TO DMCll TRANSMITTER INTERRUPT SERVICE PS 
POINTER TO DMCll CONTROL STATUS REGISTER 
POINTER TO DMCll CONTROL STATUS REGISTER HIGH BYTE. 
POINTER TO DMCll CONTOL OUT REGISTER 
POINTER TO DMCll PORT REGISTERCSEL 4) 
POINTER TO DMCll PORT REGISTERCSEL 6) 



0C1416 000000 
001460 



TEMP : 0 
. « . ^40 

i DMCll STATUS TABLE AND ADDRESS ASSIGNMENTS 



001500 
001500 
001502 
001504 
001506 

001510 
001512 
001514 
001516 

001520 
001522 
001524 
001526 

001530 
0015S2 
001534 
001536 

001540 
001542 
001544 
001546 



001500 



."1500 
DM. MAP 
DMCROO 
OMSlOO 
DMS200 
DMS300 

DMCROl 
OMSlOl 
DHS201 
DMS301 

0MCR02 
0MS1O2 
DMS202 
DMS302 

0MCRO3 
0MS1C3 
0MS203 
0MS303 

O^CR04 
0115104 
0MS2O4 
DHS304 



.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 

.BLKU 
.BLKU 
.BLKU 
.BLKU 



CONTROL STATUS REGISTER FOR DMCll Nl^BtR 00 
VECTOR FOR DMCll NUMBER 00 
DDCHP LINE* FOR DMCll NUMBER 00 
tSRD STATUS UORD 

;C0NTR0L STATUS REGISTER FOR DMCll NUMBER 01 
VECTOR FOR OMCll NUMBER 01 
DDCMP LINE* FOR DMCll NUMBER 01 
3RD STATUS UORD 

; CONTROL STATUS REGISTER FOR DMCll NUMBER 02 
i VECTOR FOR DMCll NUMBER 02 
tOOCMP LINE* FOR OMCll NUMBER 02 
t3RD STATUS UORD 

! CONTROL STATUS REGISTER FOR DMCll NUMBER 03 
J VECTOR FOR DMCll NUMBER 03 
:DDCMP LINE* FOR DMCll NUMBER 03 
t3R0 STATUS UORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 04 
J VECTOR FOR DMCll NUMBER 04 
iODCMP LINE* FOR DMCll NUMBER 04 
!3RD STATUS UORD 



001550 



DMCR05: .BLKU 



jCONTROL STATUS REGISTER FQR DMCll NUMBER 05 
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001552 


0MS105 


.BLKU 


001554 


0MS205 


.BLKU 


001556 


Ot1S305 


.BLKU 


001560 


0MCR06 


. .BLKU 


001562 


0HS106 


.BLKU 


001564 


OnS206 


.BLKU 


001566 


DnS306 


: .BLKU 


001570 


UnCR07 


.BLKU 


001572 


0MS107 


.BLKU 


001574 


0MS207 


.BLKU 


001576 


0MS307 


■ .BLKU 


001600 


AM^B 4 A 

DnCRlO 


B 1 ft/I f 

.BLKU 


001602 


AMC 4 4 A 


Bl ft/IJ 

.BLKU 


001604 


AM C O 4 A 

DnS210 


.BLKU 


001606 


onssio 


. .BLKU 


001610 


uncRii 


Bl I/LI 

.BLKU 


001612 


AMC fl 4 fl 


Ol l/LI 

.BLKU 


001614 


AMCOfl fl 


Ol l/LI 

.BLKU 


0C1616 


0HS311 


.BLKU 


001620 


DnLnl2 


Bl l#l 1 

.BLKU 






.BLKU 


AA 4 £. OA 

001624 


un92i2 


Ol l/LI 

.BLKU 


001626 


(mS312 


.BLKU 






. DLKH 


001632 




Ql 1/U 

.dlkh 


001634 




Ol l/U 

.BLKU 


0016 36 


OnS313 


.BLKU 


AA 4 £ il A 

001640 




.oLKU 


AA fl 9 

001642 




Ql l/U 


AAA £ilJI 

001644 




Ql l/U 

.BLKU 


001646 


Dt1S314 


.BLKU 


AA fl £CA 

001630 




Ol l/U 

.dLKW 


AA fl 

001652 


AMC A A <C 


Ol l/Li 


AAA 

001654 




Ql VU 

.BLKU 


001656 


0nS315 


.BLKU 


AA 1 ££A 




Ql l/U 


001662 




Ql 


AAA 

001664 




Ql l/U 
.DLKW 


001666 


l)t1S316 


.BLKU 


AA1 A7A 




Rl itU 


001672 


0MS117 


.BLKU 


001674 


DMS217 


.BLKU 


001676 


0MS317 


.BLKU 


001700 000000 


On.ENO 


000000 



SEQ 20 



! VECTOR rOR DMCll NL'MBER 05 
iDDCMP LINE# rOR DMCll NUMBER 05 
i3RD STATUS WORD 

! CONTROL STATUS REGISTFR FOR DMCll NUMBER 06 
i VECTOR FOR DMCll NUMBER 06 
:DDCMP LINE« FOR DMCll NUMBER 06 
s3RD STATUS UORD 

jCONTROL STATUS REGISTER FOR DMCll NUMBER 07 
: VECTOR FOR DMCll NUMBER 07 
;DDCMP LINE# FOR DMCll NUMBER 07 
:3RD STATUS UORD 

:C0NTR0L STATUS REGISTER FOR OMCll NUMBER 10 
: VECTOR FOR DMCll NUMBER ]0 
:DDCMP LINE« FOR DMCll NUMBER 10 
i3RD STATUS UORD 

i CONTROL STATUS REGISTER FOR DMCll NUMBER 11 
:VECTOR FCR DMCll NUMBER 11 
:D0CMP LINE* FOR DMCll NUMBER 11 
:3RD STATUS UORD 

jCONTROL STATUS REGISTER FOR DMCll NUMBER 12 
i VECTOR FOR DMCll NUMBER 12 
iODCMP LINE* FOR DMCll NUMBER 12 
;3R0 STATUS UORD 

jCONTROL STATUS REGISTER FOR DMCll NUMBER 13 
.•VECTOR FOR DMCll NUMBER 13 
:DDCMP LINE* FOR DMCll NUMBER 13 
iSRO STATUS UORD 

s CONTROL STATUS REGISTER FOR OMCll NUMBER 14 
: VECTOR FOR DMCll NUMBER 14 
:DDCMP LINE* FOR DMCll NUMBER 14 
i3RD STATUS UORD 

; CONTROL STATUS REGISTER FOR OMCll NUMBER 15 
s VECTOR FOR DMCll NUMBER 15 
:OOCnp LINE* FOR DMCll NUMBER 15 
i3RD STATUS UORD 

{CONTROL STATUS REGISTER FOR DMCll NUMBER 16 
s VECTOR FOR DMCll NUMBER 16 
tOOCMP LINE* FOR OMCll NUMBER 16 
:3RD STATUS UORD 

sCONTROL STATUS REGISTER FOR DMCll NUMBER 17 
.•VECTOR FOR DMCll NUMBER 17 
sOOCMP LINE* FOR DMCll NUMBER 17 
iSRO STATUS UORD 
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SEQ 



iOMCll PASS COUNT AND ERROR COUNT TABLE 



001702 




CNT.MAP 








www 


PACTOO: 


0 


•PASS COUNT FOR DMCll NUMBER 00 


001704 


000000 


ERCTOO i 


0 


i ERROR COUNT FOR DMCll NUMBER 00 


001706 


000000 


PACTOl • 


0 


sPASS COUNT FOR DMCll NUMBER 01 


001710 


000000 


ERCTOl: 


0 


s ERROR COUNT FOR DMCll NUMBER 01 


001712 


000000 


PACT02: 


0 


;PASS COUNT FOR DMCll NUMBER 02 


001714 


000000 


ERCT02: 


0 


sERROR COUNT FOR DMCll NUMBER 02 


001716 


000000 


PACT03 : 


0 


:PASS COUNT FOR DMCll NUMBER 03 


001720 


000000 


ERCT03: 


0 


: ERROR COUNT FOR DMCll NUMBER 03 


001722 


000000 


PACT04: 


0 


iPASS COUNT FOR DMCll NUMBER 04 


001724 


000000 


ERCT04: 


0 


(ERROR COUNT FOR DMCll NUMBER 04 


001726 


000000 


PACT05: 


0 


;PASS COUNT FOR DMCll NUMBER OS 


001730 


000000 


ERCT05: 


0 


: ERROR COUNT FOR DMCll NUMBER 05 


0C1732 


000000 


PACT06: 


0 


:PASS COUNT FOR DMCll NUMBER 06 


001734 


000000 


ERCT06: 


0 


; ERROR COUNT FOR DMCll NUMBER 06 


001736 


000000 


PACT07 : 


0 


:PASS COUNT FOR DMCll NUMBER 07 


001740 


000000 


ERCT07: 


0 


sERROR COUNT FOR DMCll NUMBER 07 


001742 


000000 


PACT 10: 


0 


iPASS COUNT FOR DMCll NUMBER 10 


001744 


000000 


ERCTIO: 


0 


! ERROR COUNT FOR OMCll NUMBER 10 


001746 


000000 


PACTll: 


0 


sPASS COUNT FOR DMCll NUMBER 11 


001750 


000000 


ERCTll: 


0 


iERROR COUNT FOR DMCll NUMBER 11 


001752 


000000 


PACT 12: 


0 


;PASS COUNT FOR OMCll NUMBER 12 


001754 


000000 


ERCT12: 


0 


iERROR COUNT FOR DMCll NUMBER 12 


001756 


000000 


PACT 13: 


0 


;PASS COUNT FOR DMCll NUMBER 13 


001760 


000000 


ERCT13: 


0 


; ERROR COUNT FOR DMCll NUMBER 13 


001762 


000000 


PACT14: 


0 


;PASS COUNT FOR DMCll NUMBER 14 


001764 


000000 


ERCT14: 


0 


sERROR COUNT FOR OMCll NUMBER 14 


001766 


000000 


PACT 15: 


0 


:PASS COUNT FOR OMCll NUMBER 15 


001770 


000000 


ERCT15: 


0 


iERROR COUNT FOR DMCll NUMBER 15 


001772 


000000 


PACT16: 


0 


iPASS COUNT FOR OMCll NUMBER 16 


001774 


000000 


ERCT16: 


0 


1 ERROR COUNT FOR DMCll NUMBER 16 


001776 


000000 


PACT17: 


0 


iPASS COUNT FOR OMCll NUMBER 17 


002000 


000000 


ERCT17: 


0 


iERROR COUNT FOR OMCll NUMBER 17 
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SEQ 22 



.REn 



rORHAT OF STATUS TABLE 



15 14 13 12 11 10 09 08 07 06 OS 04 03 02 01 00 



IZIIIXIIII 
ICONTROL RE 
IIIIIIXIII 



IIIIIIIII 

I*I*I*I*I*I*I*I* 

IIIIIIIII 



IIIIIIXIII 
I*eH AOO*I*L 
IIIZIIIIII 



z 
I 
I 



I 
I 
I 



I 
I 
I 



I 
I 
I 



I 
I 
I 



I 
I 
I 



I 
I 
I 



I 

X 

I 



I 
I 
I 



I 
I 

X 



X I I I I I 
G X S T E R I CSR 
I I X X I I 



I X X I I I 
E C T 0 R * X 
I I I I I I 



III 
I N E 
III 



III 
« * I 

III 



I 
I 
I 



I 
I 
I 



III 
I * X * X 
III 



STATl 



STAT2 



STAT3 



DEFINITION OF FORMAT 



CSR: CONTAINS ONCll CSR ADDRESS 

STATl: BITS 00-06 IS OHCll VECTOR ADDRESS 
BITlS-1 niCRO-PROCESSOR HAS CRAM 
BITlS-0 niCRO-PROCESSOR HAS CROM 
BIT14-1 ???? TURNAROUND CONNECTOR IS ON 
BIT14-0 NO TURNAROUND CONNECTOR 
BIT13-0 LINE UNIT IS AN M8201 
BITi3-l LINE UNIT IS AN MS202 
BIT12-1 NO LINE UNIT 
BITS 09-11 IS OHCll BR PRIORITY LEVEL 

STAT2: LOU BYTE IS SWITCH PAC«1 (ODCNP LINE NUMBER) 
HIGH BYTE IS SUITCH PAC«2 (BMBTS BOOT ADD) 

STATS: BITO-1 DO FREE RUNNING TESTS ON KHC 

CHJST BE SET TO A ONE MANUALLY [PROGRAM OZDMI ONLY]) 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 
DZOMG TEST 2 FIRST 

BITl-1 DMCll-AL LOCAL HIGH SPEED MICRO-CODE 
BITl-O DMCll-AR REMOTE LOU SPEED MICRO-CODE 



I 
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PROGRAM INITIALIZATION 

LOCK OUT INTERRUPTS 

SET UP PROCESSOR STACK 

SET UP POWER FAIL VECTOR 

CLEAR PROGRAM CONTROL FLAGS AND COUNTS 

TYPE TITLE MESSAGE 



002002 


012737 


000340 


177776 


.START: 


MOV 


♦340. PS 


jLOCK OUT INTERRUPTS 


002010 


012706 


001200 






MOV 


♦STACK, SP 


:SET UP STACK 


002014 


012737 


005336 


000024 




MOV 


♦.PF AIL, 8^24 


:SET UP POWER FAIL VECTOR 


002022 


013737 


001310 


001314 




MOV 


DMNUM.SAVNUM 


;SAVE NUMBER OF DEVICES IN SYSTEM. 


002030 


005037 


010016 






CLR 


SUFLG 


! CLEAR SOFT TYPEOUT FLAG 


002034 


105037 


001325 






CLRB 


ERRFLG 


i CLEAR ERROR FLAG 


002040 


105037 


001327 






CLRB 


QV.FLG 


sZERO QUICK VERIFY FLAG 


002044 


012737 


001470 


001320 




MOV 


♦DM. MAP- 10, CRE AH 


:GET MAP POINTER. 


002052 


012737 


001676 


001322 




MOV 


♦CNT.MAP-4,MILK 


sGET PASS COUNT MAP POINTER 


002060 


012737 


100000 


001316 




MOV 


♦6IT15,RUN 


;POINT POINTER TO FIRST DEVICE. 


002066 


012700 


001702 






MOV 


♦cnt.map.ro 


(PASS COUNT POINTER TO RO 


002072 


005020 






23$: 


CLR 


(R0)» 


: CLEAR TABLE 


002074 


022700 


002002 






CMP 


♦CNT,MAP»100,RO 


sDONE YET? 


002100 


001374 








BNE 


23 1 


iKEEP GOING 


002102 


005037 


001234 






CLR 


LSTERR 


; CLEAR LAST ERROR POINTER 


0C21O6 


012737 


000001 


001226 




MOV 


♦l.TSTNO 


sSET UP FOR TEST 1 


002114 


012757 


002002 


001214 




MOV 


♦.ST ART, RETURN 


iSET UP FOR POWER FAIL BEFORE 
: TESTING STARTS 


002122 


013746 


000006 






MOV 


W6.-CSP) 


:SAVE CURRENT VECTORS 


002126 


013746 


000004 






MOV 


M4.-(SP) 




002132 


012737 


002166 


000004 




MOV 


♦6>,M4 


'sSET UP FOR TIMEOUT 


002140 


012737 


177570 


001202 




MOV 


♦177570. SUR 


iSET SWR TO HARD SUR ADDRESS 


002146 


012737 


177570 


001200 




MOV 


♦177570, DISPLAY 


:SET DISPLAY TO HARD SUR ADDRESS 


00215^ 


022777 


177777 


177020 




CMP 


♦-1.8SUR 


{REFERENCE HAROUARE SUITCH REGISTER 


002162 


001402 








BEQ 


6l42 


sIF - -1 USE SOFT SUR ANYUAY 


002164 


000407 








BR 


71 


ilF IT EXISTS AND NOT - -1 USE HARD SUR 


002166 


022626 






6$; 


CMP 


CSP)*,(SP)» 


! ADJUST STACK 


002170 


012737 


000176 


001202 




MOV 


•SUREG.SUR 


{POINTER TO SOFT SUR 


002176 


012737 


000174 


001200 




MOV 


♦OISPREG. DISPLAY {POINTER TO SOFT DISPLAY REG 


002204 


012637 


A A A A A A 

000004 




7$: 


MOV 


(SP)«.8*4 


{RESTORE VECTORS 


002210 


012637 


000006 






MOV 


(SP)*.M6 


IhAS INITIALIZATION BEEN PERFORMED 


002214 


105737 


001324 






TSTB 


INIFLG 


002220 


001006 








BNE 


20« 


tBR IF YES 


002222 


022737 


003522 


000042 




CMP 


•»ENDA0.M42 


;IF ACT -11 AUTOMATIC MODE. DON'T TYPE ID 


002230 


001402 








BEQ 


20 » 




002232 


t AAA 

104402 


AA1 AAA 






TVOC 

ITrt 


.MTITLE 


{TYPE TITLE MESSAGE 


002236 


004737 


007606 




20>: 


JSR 


PC.CKSUR 


{CHECK FOP SOFT SUR 


002242 


017737 


176734 


001236 




MOV 


0SUR.STRTSU 


(STORE STARTING SWITCHES 


002250 


005737 


000042 






TST 


M42 


{IS IT RUNNING IN AUTO MODE? 


002254 


001402 








BEQ 


.*6 


(BR IF NO 


002256 


005037 


001236 






CLR 


STRTSU 


(IF YES, CLEAR SUITCHES 


002262 


032737 


000001 


001236 




BIT 


♦SUOO.STRTSU 


(IF SUOO>1. QUESTIONS ARE ASKED. 


002270 


001012 








BNE 


17$ 


(BR IF SUOO-1 


002272 


105737 


001236 






TSTB 


STRTSU 


(BIT7-1?? 


002276 


100007 








BPL 


17$ 


(BR IF SU07-0 


002300 


005737 


001306 






TST 


DM AC TV 


{ARE ANY DEVICES SELECTED? 


002304 


001006 








BNE 


16$ 


'BR IF YES 


002306 


104402 


007154 






TYPE. 


NOACT 


'iHO DEVICES SELECTED. 


002312 


000000 








HALT 




(STOP THE SHOU 



SEQ 24 
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002314 


000776 






BR 


.-2 


sDISQUALIFY CONTINUE SWITCH 


002316 


004737 


010512 


17$: 


JSR 


PC. AUTO. SIZE 


:G0 DO THE AUTO SIZE 


002322 


105737 


001324 


16*: 


TSTB 


INIFLG 


jFIRST TIME? 


002326 


001410 






BEQ 


21* 


'BR IF YES 


002330 


105737 


001236 




TSTB 


STRTSU 


llF USING SAME PARAMETERS DONT 


002334 


100431 






BMI 


1« 




002336 


032737 


000006 


001236 


BIT 


«eiTl!BIT2.STRTSW;IS TEST NO. OR LOCK SELECTED 


002344 


001403 






BEQ 


24 » 


{IF NO THEN TYPE STATUS 


002346 


000424 






BR 


1* 


{IF YES DO NOT TYPE STATUS 


002350 


005137 


001324 


21 1: 


COM 


INIFLG 


{SET FLAG 


002354 


104402 


006224 


241: 


TYPE 


.XHEAO 


{TYPE HEADER 


00236C 


012704 


001500 




MOV 


«0M.MAP,R4 


{SET POINTER 


002364 


010437 


001246 


5t: 


MOV 


R4, TEMPI 


iSET ADDRESS 


002370 


012437 


001250 




MOV 


(R4)*.TEMP2 


{SET CSR 


002374 


001411 






BEQ 


1» 


Iall done if zero 


002376 


012437 


001252 




MOV 


(R4)», TEMPS 


{SET STATl 


002402 


012437 


001254 




MOV 


(R4)*.TEMP4 


{SET STAT2 


002406 


012437 


001256 




MOV 


(R4)«.TEMP5 


{SET STAT3 


002412 


104410 






CONVRT 




{TYPE OUT STATUS MAP 


002414 


007454 






XSTATQ 






002416 


000762 






BR 


5» 




002420 


012700 


001500 


1): 


MOV 


•OM.MAP.RO 


{RO POINTS TO STATUS TABLE 



:!*AUTO SIZE TEST 

{{*THIS TEST VERIFYS THAT THE DMCllS ANO/OR KMCllS ARE AT THE CORRECT FLOATING 
i(*AOORESSES FOR YOUR SYSTEM. IF THIS TEST FAILS. IT IS r«)T A HARDWARE ERROR. 
({*CHECK THE ADDRESSES OF ALL FLOATING DEVICES (DJ.DH.DQ.DU.DUP.LK.DMC.DZ.KMC). 
{{*IF THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMCll. THE FIRST 
{{*DMC11 ADDRESS IS 760070. KMCll IS 760110. NO DEVICE SHOULD EVER BE AT 
:{*AOORESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE 
tt ARIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 
ii*YOU THE FIRST TINE. IT MAY CONE BACK AND TELL YOU A DIFFERENT ADDRESS 
i;*THE NEXT TINE YOU RUN IT. PLEASE HAVE PATIENCE. THE FINAL ADDRESS 
ii*WILL BE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DNC'S ARE 
{{*CORRECT). 

!;*******•**•••*•**••*••*♦**•*•*••••**•*•**••***•••*••••*•*••••••***•* 



002424 


013746 


000004 






NOV 


8#4.-(SP) 
8*6. -(SP) 


(SAVE LOC 4 


002430 


013746 


000006 






MOV 


{SAVE LOC 6 


002434 


005037 


000006 






CLR 


0*6 


{CLEAR VEC*2 


002440 


005037 


001252 






CLR 


TENP3 


(CLEAR FLAG 


002444 


005005 








CLR 


R5 


{R5-0-DMC, R5--1-KMC 


002446 


011037 


001404 




AUSTRT : 


MOV 


(RO}.DNCSR 


(GET NEXT DMC CSR 


002452 


001564 








BEQ 


AUDONE 


(BR IF DONE 


002454 


005705 








TST 


R5 


(ONC OR KMC? 


002456 


001005 








BNE 


1» 


(BR IF KMC 


002460 


032760 


100000 


000002 




BIT 


«6IT15.2(R0} 


(CHECK FOR DMC CSR 


002466 


001061 








BNE 


SKIP 


(SKIP IF NOT DMC 


002470 


000404 








BR 


2t 


(ITS A DMC SO CONTINUE 


002472 


032760 


100000 


000002 


1»: 


BIT 


•6IT15.2(R0) 


(CHECK FOR KMC CSR 


002500 


001454 








BEQ 


SKIP 


{SKIP IF NOT KMC 


002502 


012737 


002674 


000004 


2»: 


MOV 


«NQ0EV.8«4 


(SET UP FOR TIMEOUT 


002510 


005705 








TST 


R5 


(DMC OR KMC? 


002512 


001003 








BNE 


3t 


(BR IF KNC 


002514 


012703 


000006 






MOV 


«6.R3 


{R3 IS COUNT OF DEVICES BEFORE DMC 


002520 


000402 








BR 


4) 


{GO ON 
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01?703 


000010 




3* : 


nov 


«10.R3 




01P70P 

VAC f vc 


003010 




41 : 


nov 


M>EVTAB.R2 




012701 


160010 






tiov 


«160010,R1 




005711 






FLOA r : 


TST 


(Rl) 












MOVB 


(R2).R4 




060401 








ADD 


R4.R1 




005201 








INC 


Rl 




040401 








BIC 


R4.R1 




005703 








TST 


R3 




001371 








BNE 


FLOAT 




0127^7 


002700 


000004 




MOV 


«ERR,S«4 




010137 


003022 






MOV 


Rl.XLOC 




005705 






FYs 


TST 


R5 


002570 


001005 








BNE 


It 


002572 


032760 


100000 


000002 




BIT 


«6IT15,2(R0> 


002600 


001014 








BNE 


SKIP 


002602 


000404 








BR 


2t 


002604 


032760 


100000 


000002 


1*: 


BIT 


«6IT15.2(R0) 


002612 


001407 








BEQ 


SKIP 


002614 


005711 






2*1 


TST 


(Rl) 


002616 


020157 


001404 






CMP 


Rl.DMCSR 


002622 


001411 








BEQ 


OK 


002624 


062701 


000010 






ADD 


no.Ri 


002650 


000756 








BR 


FY 


002632 


062700 


000010 




SKIP: 


ADO 


#10, RO 


002636 


011057 


001404 






MOV 


(R0),0MCSR 


002642 


001470 








BEQ 


AUOONE 


002644 


000750 








BR 


FY 


002646 


062700 


000010 




OK: 


ADD 


#10. RO 


002652 


062737 


000010 


003022 




ADD 


♦lO.XLOC 


002660 


011037 


001404 






MOV 


(RO).DMCSR 


002664 


001457 








BEQ 


AUOONE 


002666 


015701 


003022 






nov 


XLOC.Rl 


002672 


000755 








BR 


FY 


002674 


122245 






NOOEV: 


CMP8 


(R2)*.-(R3) 


002676 


000002 








RTI 




002700 


005757 


001252 




ERR: 


TST 


TEMPS 


002704 


001014 








BNE 


1< 


002706 


104402 








TYPE 




002710 


007225 








CONERR 




002712 


012757 


002700 


001276 




MOV 


«ERR.SAVPC 


002720 


104411 








CNVRT 




002722 


002770 








ERRPC 




002724 


104402 








TYPE 




002726 


007277 








CNERR 




002730 


012757 


177777 


001252 




MOV 


♦-1.TEMP5 


002736 


010157 


001262 




1»: 


MOV 


Rl.SAVRl 


002742 


104410 








CONVRT 




002744 


002776 








CONTAB 




002746 


005705 








TST 


R5 


002750 


001005 








BNE 


Zi 


002752 


104402 








TYPE 




002754 


007520 








OMCM 




002756 


000402 








BR 


41 


002760 


104402 






3$: 


TYPE 




002762 


007550 








KMCM 




002764 


022626 






4»: 


CMP 


(SP)*.(SP)* 



SEQ 25 



sR3 IS COUNT OF DEVICES BEFORE KMC 

iR2 IS DEVICE TABLE PONTER 

; START WITH ADDRESS 160010 

:CHECK ADDRESS IN Rl 

sIF NO TIMEOUT. GET NEXT ADDRESS 

:IN Rl 

• 

IanY MORE DEVICES TO CHECK FOR? 
:BR IF YES 

:0K ONLY DMC'S ARE LEFT. SET UP FOR TIMEOUT 

:SAVE FIRST DMC/KMC ADDRESS 

:DMC OR KMC? 

:BR IF KMC 

{CHECK FOR DMC CSR 

:SKIP IF NOT DMC 

{ITS A DMC SO CONTINUE 

: CHECK FOR KMC CSR 

sSKIP IF NOT KMC 

: CHECK DMC ADDRESS 

.-DOES IT MATCH 

:BR IF YES 

sGET NEXT DMC ADDRESS 
;D0 IT AGAIN 

:SKIP TO NEXT CSR IN TABLE 

J GET NEXT CSR 

:BR IF DONE 

:ELSE CONTINUE 

sSKIP TO NEXT OMC CSR 

: UPDATE EXPECTED DMC/KMC ADDRESS 

iGET NEXT DMC/KMC CSR 

sBR IF DONE 

:GET EXPECTED DMC/KMC ADDRESS 
; CONTINUE 

iON TIMEOUT. INC R2. DEC R3 
i RETURN 

: CHECK FLAG IF - 0 TYPE HEADER 

:SKIP HEADER 

sTYPEOUT HEADER MESSAGE 

{CONFIGURATION ERROR!!'! 

J SAVE PC FOR TYPEOUT 

(type out error pc 

Itype rest of header 

i set flag so it only gets typed once 
i save rl for typeout 

jTYPZ CSR VALUES 
;OMC OR KMC ? 
tBR IF KMC 



{CONTINUE 



(ADJUST STACK 
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SEQ 26 



002766 
002770 
002772 
002774 
002776 
003000 
003002 
003004 
003006 
003010 
003011 
003012 
003013 
003014 
003015 
003016 
003017 
003020 

003022 
003024 
003026 
003030 
0C3034 
003040 
003042 
003046 
003052 
003060 
003062 
003066 
003070 
003072 
003100 
003102 
003106 
003110 
003112 
003120 
003124 
003126 
003132 
003136 
003140 
003142 
003144 
003150 



000727 
000001 
006 
001276 
000002 
006 
003022 
006 
001404 
007 
017 
007 
007 
007 
007 
007 
007 
007 

000000 
005705 
OOlOOS 
012705 
012700 
000602 
012637 
012637 
032737 
001422 
104402 
005000 
000000 
027737 
101404 
104402 
000000 
000776 
017737 
013700 
000000 
012700 
012701 
010120 
005021 
022021 
022700 
001372 



002 

004 
002 



ERRPC: 
CONTAB: 

OEVTAB: 



177777 
001500 

000006 
000004 

000010 001236 
006144 

176104 001312 
006005 



176064 001306 
001306 

000300 
000302 



.EVEN 
XLOC: 
AUOONE: 



II: 



2«: 

31: 
41: 



001000 



BR 

1 

.BYTE 
SAVPC 

2 

.BYTE 

XLOC 

.BYTE 

DHCSR 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

0 

TST 
BNE 
HOV 

nov 

BR 

nov 

HOV 
BIT 
BEQ 
TYPE 

aR 

HALT 

CHP 

BLOS 

TYPE 

HALT 

BR 

nov 
nov 

HALT 

nov 
nov 
nov 

CLR 

cnp 
cnp 

BNE 



OK 
6.2 

6.4 
6.2 

7 

17 

7 

7 

7 

7 

7 

7 

7 



R5 
II 

«-l.R5 

Wn.HAP.RO 

AUSTRT 

(SP)*.S*6 

(SP)«.8«4 

*SU03,STRTSy 

31 

.HNEU 

RC 

aSUR.SAVACT 
21 

.nE»R3 
.-2 

BSUR.OMACTV 
DHACTV.RO 

«300.RC 
•302. Rl 
Rl.(RO)* 
(RD* 

(R0)«.(R1)« 
•1000. RO 
41 



:BR TO GET OUT 



(TEST START AND RESTART 



I- 



00S1S2 012706 001200 

003156 013746 000006 

005162 013746 000004 

003166 005000 

003170 012737 003234 000004 

003176 005037 000006 



.BEGIN: nov 

nov 
nov 
aR 
nov 

CLR 



•STACK. SP 

>.-(SP) 

RO 

•21. 8^4 

a*6 



;0J 
OH 
DO 
DU 
OUP 
LK 

one 

DZ 
KMC 



one? 

BR IF KnC AND ALL DONE 

SET R5 TO -1 (KMC) 

RESET RO TO START OF TABLE 

GO DO KnC'S 

RESTORE LOC 6 

RESTORE LOC 4 

SELECT SPECIFIC DEVICES?? 

BR IF NO. 

TYPE THE MESSAGE. 

ZERO DATA LIGHTS 

UAIT FOR USER TO TELL UHAT DEVICES TO RUN 

IS THE NUMBER VALID? 

BR IF NUMBER IS OK. 

TELL USER OF INVALID NUMBER. 

STOP EVERY THING. 

RESTART THE PROGRAM AGAIN. 

GET NEU DEVICE PATTERN 

SHOU THE USER UHAT HE SELECTED. 

CONTINUE DYNAMIC SWITCHES . 

PREPARE TO CLEAR THE FLOATING 

VECTOR AREA. 300-776 

START PUTTING •PC*2 - HALT" 

IN VECTOR AREA. 

POP POINTERS 

ALL DONE?? 

BR IF NO. 



i5£T UP STACK 

I SAVE LOC 6 

I SAVE LOC 4 

I START AT 0 

tSET UP FOR TIME OUT 

(TO AUTOSIZC HEHORY 
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093202 


005720 






61: 


TST 


003204 


022700 


157776 






CtIP 


003210 


001374 








BNE 


003212 


162700 


007776 






SUB 


003216 


010037 


001304 




71: 


MOV 


003222 


012637 


000004 






MOV 


003226 


012637 


000006 






HOV 


003232 


000413 








BR 


003234 


022626 






2ts 


CUP 


003236 


162700 


000004 






SUB 


003242 


162700 


007776 






SUB 


003246 


022700 


030000 






CMP 


0032S? 


001361 








BNE 


003254 


012700 


037400 






MOV 


003260 


000756 








BR 


005262 


012737 


000340 


177776 


lot: 


MOV 


003270 


032737 


000004 


001236 




BIT 


005276 


001411 








BEQ 


003300 


104402 


006043 






TYPE 


003304 


012737 


000240 


003612 




MOV 


003312 


012737 


000240 


003614 




MOV 


003S20 


000406 








BR 


0C3322 


013737 


003730 


003612 


1»: 


MOV 


0C3330 


013737 


003732 


003614 




MOV 


003336 


012737 


010060 


001214 


3»: 


MOV 


003344 


032737 


000002 


001236 


4$: 


BIT 


003352 


001002 








BNE 


003354 


104402 


005755 






TYPE 


003360 


000177 


175630 




5*: 


JMP 



SEQ 27 



(R0)« 


1 CHECK ADDRESS IN RO 


•157776. RO 


jIS IT AT LEAST 28K 


61 


iBR IF NO 


♦7776. RO 


;SAVE 2K FOR MONITORS 


RO.MEMLIM 


! STORE MEMORY LIMIT 


CSP)*.9«4 


; RESTORE LOC 4 


(SP)*.8«6 


sRESTORE LOC 6 


10$ 


i CONTINUE 


V Or / • . ^ or / * 




«4.R0 


iGET LAST GOOD ADDRESS 


♦7776.ro 


iSAVE 2K FOR MONITORS 


•30000.ro 


jIS IT 8K? 


7$ 


:BR IF NO 


•37400.ro 
7» 


J IF 8K DON'T SAVE 2K 


•340. PS 


; 

iLOCK OUT INTERRUPTS 


•BIT2.STRTSU 


sCHECK FOR LOCK ON TEST 


IS 


tBR IF NO LOCK DESIRED. 


.MLOCK 


;TYPE LOCK SELECTED. 


•NOP.TTST 


! ADJUST SCOPE ROUTINE. 


•N0P.TTST*2 


:SET UP TO LOCK 


3) 


: CONTINUE ALONG. 


BRU.TTST 


sPREPARE NORMAL SCOPE ROUTINE 


BRX.TTST*2 


;LOCK NOT SELECTED. SET UP FOR NORMAL SCOPE LOOP 


•CYCLE. RETURN 


s START AT "CYCLE" FIND WHICH DEVICE TO TEST 


•SUOl.STRTSU 


J IS TEST NO. SELECTED? 


5$ 


iBR IF YES 


.MR 


sTYPE R 


9RETURN 


sSTART TESTING 
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END Of P^5S ROUT INC 



SdQ 29 



sENO OF PASS 

J TYPE HME Of TEST 

: UPDATE PASS COUNT 

;CHECX FOR EXIT TO ACT-ll 

(RESTART TEST 



003364 


000005 






.EOP: 


RESET 




iMAKE THE UORLO CLEAN AGAIN. 


003366 


005037 


001254 






CLR 


LSTERR 


1 CLEAR LAST ERROR PC 


003372 


105057 


001525 






CLRB 


ERRFLG 


: CLEAR ERROR FLAG 


005576 


005257 


001230 






INC 


PASCNT 


I UPDATE PASS COUNT 


003402 


015777 


001250 


175570 




MOV 


PASCNT. 8DISPLAY 


: DISPLAY PASS COUNT 


003410 


104402 


005755 






TYPE 


.MEPASS 


:TYPE END PASS 


003414 


104402 


006072 






TYPE 


.MCSRX 


sTYPE CSR 


003420 


104411 


003546 






CNVRT 


.XCSR 


sSHOU IT 


003424 


104402 


006100 






TYPE 


.MVECX 


;TYPE VECTOR 


003450 


104411 


005554 






CNVRT 


.XVEC 


sSHOU IT 


003434 


104402 


006106 






TYPE 


.MPASSX 


;TYPE PASSES 


003440 


104411 


005562 






CNVRT 


.XPASS 


:SHOW IT 


003444 


104402 


006117 






TYPE 


.MERRX 


{TYPE ERRORS 


003450 


104411 


005570 






CNVRT 


.XERR 


sSHOU IT 


005454 


015700 


001522 






MOV 


MILK.RO 


:GET POINTER TO PASS COUNT 


005460 


015720 


001250 






MOV 


PASCNT. (R0)» 


: STORE PASS COUNT FOR THIS DMCll 


005464 


015720 


001252 






MOV 


ERRCNT. (RO)* 


jSTORE ERROR COUNT FOR THIS DMCll 


0C5470 


005557 


001514 






DEC 


SAVNUM 


:ARE ALL DEVICES TESTED? 


005474 


001017 








BNE 


RESTRT 


;BR IF NO. 


005476 


112757 


000577 


001327 




MOVB 


*377.0V.FLG 


jSET THE QUICK VERIFY FLAG. 


003504 


015757 


001310 


001314 




MOV 


DMNUM, SAVNUM 


;RESTORE THE COUNT 


003512 


015701 


000042 






MOV 


9#42.R1 


;CHECK FOR ACT-ll OR DDP 


003516 


001406 








BEQ 


RFSTRT 


:IF NOT. CONTINUE TESTING 


003520 


000005 








RESET 




:STOP THE SHOU- -CLEAR THE UORLD 


003522 








*ENOAO: 








003522 


004711 








JSR 


PC.lRl) 




003524 


000240 








NOP 






003526 


000240 








NOP 






003530 


000240 








NOP 






003532 


000240 








NOP 






003534 


012737 


010060 


001214 


RESTRT: 


MOV 


♦CYCLE, RETURN 




003542 


000137 


A 4 AA£ A 

010060 






IMA 

JMP 


CYCLE 




003546 


000001 






XCSR: 


1 






003550 


006 


002 






.BYTE 


6.2 




003552 


001404 








DMCSR 






003334 


AAAA A 1 
000001 






XVEC : 








003556 


004 


002 






.BYTE 


4.2 




003560 


AA 1 T Til 

001374 








uMRVEC 






003562 


AAAA A 4 

000001 






XPASS: 


1 








(\(\^ 
wvw 








RYTF 
• D I 1 C 


6.2 




003566 


001230 








PASCNT 






003570 


000001 






XERR: 


1 






003572 


006 


002 






.BYTE 


6.2 




003574 


001232 








ERRCNT 
















s SCOPE 

* * 


LOOP AND INTERATION HANDLER 


003576 


004737 


007606 




.SCOPE: 


JSR 


PC.CKSUR 


sCKECK FOR SOFT SUR 


003602 


010016 








MOV 


RO.(SP) 


J SAVE RO ON THE STACK 


005604 


032777 


040000 


175370 




BIT 


«BIT14.3SUR 


j'LOOP ON THIS TEST"? 
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SEO 29 



093612 


001407 






TTCT . 


DCA 


I) 


BR IF NO. CIF LOCK SWOl'l; THIS 


093614 


000437 








DO 


i* 


bOlO 3» iIF LOCK SWOl'l; THIS 


003616 


005737 


003 / 34 






TCT 

lb 1 


UUNt 


WAS TKCSR DONE SET? 


003622 


00X434 








DCA 


o» 


BR IF NO (LOCKED ON TEST; 


AA V£ 4il 

003624 


005037 


003734 








Dorc 


YES. CLEAR FLAG 


003630 


000415 








DO 


2) 


GO TO NEXT TEST 


003632 


03c / / / 


004000 


1 /534<: 


l# : 


DTT 


«SU11,SSWR 


DELETE ITERATION? (QUICK PASS) 


003640 


AA 4 A 1 < 
001011 








Due 


2* 


BR IF YES 


003642 


1 AC7T7 

105737 


AA 1 

0013^7 






TCTD 

1 b Id 


QV.FLG 


HAVE PASSES BEECOMPLETED? 


003646 


AA 1 A A£. 

001406 








DC A 


2) iBR IF QUICK PASS. 


003650 


AAK9 V7 

005^37 


AA1 9 OA 

001224 






INL 


LPCNT .UPDATE ITERATION COUNTER 


0036M 


023 f 3 ^ 


001224 


AA1 




PMD 

Lnf 


LPCNT.ICOUNT 


ARE ALL ITERATIONS DONE?? 


00366r 


1 A1 ^ 4 A 

101414 








01 nc 


3$ 


BR IF NOT YET 


003OD4 


10503 7 


AA 1 XOK 




c« : 


n DD 


ERRFLG 


PREPARE FOR NEW TEST 


0036 »0 


AACA V7 

00503 / 


AA 1 OOA 






ri D 


LPCNT 


START ICOUNTER AT 0 


UU30 '4 


AACAT7 
00503 ' 


AAI 

UUlccU 






LLK 


LOCK 




UU3 lUU 


Ai ^7X7 
Olc f 91 




AA1 




MOW 


#20.IC0UNT 


RESET ITERATIONS 


UU3 f VO 


AI 

013/ 3 / 


UUlclO 






nuv 


NEXT. RETURN 


GET NEXT TEST 


003 1 14 


AI 1£/\A 






Ht - 
3> : 


Mni/ 
nuv 


(SP).RO 


POP RO OFF OF THE STACK 


WO ' xo 














FAKE AN "RTI" 


003720 


013701 


001404 






MOV 


OMCSR.Rl 


iRl CONTAINS BASE OMC ADDRESS 


003724 


000177 


175264 






JMP 


8RETURN 


;G0 DO THE TEST 


003730 


001407 






BRW: 


1407 






0C3732 


000437 






BRX: 


437 






003734 


000000 






DONE: 


0 







■240) 
•240) 



003736 004737 007606 .SCOPl: 

003742 032777 001000 175232 

003750 001405 

003752 005737 001220 

003756 001402 

003760 013716 001220 

003764 000002 1*: 



: CHECK FOR FREEZE ON CURRENT DATA 



; — 

JSR 
BIT 
BEQ 
TST 
BEQ 
MOV 
RTI 



PC.CKSUR 

«SU09,9SUR 

U 

LOCK 
1» 

LOCK.(SP) 



i CHECK FOR SOFT SUR 
;IS SW09»1(SET)? 
:BR IF NOT SET. 



:GOTO THE ADDRESS IN LOCK. 
:G0 BACK. 



; TELETYPE OUTPUT ROUTINE 



003766 


010546 






.TYPE: 


MOV 


R5,-(SP) 


SAVE R5 ON THE STACK. 


003770 


017605 


000002 






MOV 


a2(SP),R5 


GET ADDRESS OF MESSAGE. 


003774 


062766 


000002 


000002 




ADD 


♦2.2(SP) 


POP OVER ADDRESS. 


004002 


005737 


010016 




4*: 


TST 


SUFLG 


.SOFT SUR MESSAGE? 


004006 


001004 








BNE 


1* 


IF YES TYPE IT OUT REGARDLESS OF SU12 


004010 


032777 


010000 


175164 




BIT 


#SW12,aSUR J INHIBIT ALL PRINT OUT?? 


004016 


001012 








BNE 


3$ 


BR IF NO PRINT OUT WANTED (SU12-1) 


004020 


105715 






1«: 


TSTB 


CR5) 


IS NUMBER MINUS? (MSB-1(BIT7)) 


004022 


100002 








BPL 


2) 


BR IF NUMBER IS PLUS 


004024 


104402 


005672 






TYPE 


.MCRLF 


TYPE A CR/LFJ 


004030 


105777 


175154 




2*: 


TSTB 


aTPCSR 


TTY READY? 


004034 


100375 








BPL 


2» 


BR IF NO. 


004036 


112577 


175150 






MOVB 


(R5)*.9TPDBR 


PRINT CURRENT CHAR. 


004042 


001357 








BNE 


4* 


IF NOT ZERO KEEP PRINTING! 


004044 


012605 






3$: 


MOV 


(SP)».R5 


END OF OUTPUT. RESTORE R5 


004046 


000002 








RTI 




GO HOME 
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094050 


A« AV^£ 

010346 






TUCTD . 

. JNb In : 


HUV 


01 ^ CO A 


AA4 AC^ 

004052 


010446 








nuv 


Dil r CO A 


AA^ ACii 

004054 


A« ^£ *T 

017637 


AAAAAA 
000004 


AA Jl A70 

004072 




nov 




AAil A£1 

004062 




AAAAA9 
000002 


AAAAAA 

0OO004 




ann 
ADD 




004070 


1 AJK A^ 

104402 






.xNs 1 1 : 


T VDC 

1 Trt 




AA^ A^O 

0040 ic 


AAAA AA 
000000 






.nab: 


U 




0v40 /4 


A1 ^7AJI 

012704 


AA7CAO 

00 r 502 






nuv 


ATKIDI C DA 


UV41UV 


A1 "^^AT 

012703 


AAAAA7 






MOW 

nuv 


V ( aK6 


A^ 

0«/4x04 


1 ACT 77 

105777 


1 7CA7A 
1 f 50 f4 




1 € • 


1 b 1 D 




AAA1 1 A 
UV4XXU 


IvOS '5 








DDI 
DrL 


i t 


AAA 119 

0041 12 


1 1 "77 1 A 
11 » '14 


1 7CA7A 

1 (50 rO 






nuvo 


QTI/riDD r DA ^ 
Ql 1 M/DK » l K*» > 


v0411o 


1 A 9*7 1 A 

142 f 14 


AAAOAA 

UOV2UU 






DTm 

DlLD 


AOAA r DA ^ 


AAA 1 09 


1 99A 97 

12242 ' 


AAAA1 C 






THDQ 


TDA '^ A. A1 C 


AAA 1 0£ 


AA 1 A 1 7 
UV141 r 








Dm 


TMCTDO 


AAA1 lA 


1 AC777 
105 III 


1 7^nCA 




2* : 


1 b 1 D 




A/lAI XA 


1 AAI 7C 

lOOd r5 








DDI 


o t 


WHXOO 


ftl 7777 
OX till 


1 7^nAA 

X f 3V^^ 


X r 3V^O 




Mnu 
nuv 


W 1 IM/Dn fl V 1 r L/Dn 


UV#X4^ 










npr 

UCw 


no 


VV#X40 


UUX930 












vv^X3v 


A| 3&nA 

vXcOU4 








Mnw 
nuw 


r QP ^ A DA 


wv413c 


At 34LAV 








Mnu 
nuw 


^ Or J* 1 to 


0041^ 




009666 




TNSTE • 

■ X lb* 


TYPF 


MOM 


0C4160 


010346 








MOV 


R3.-CSP) 


004162 


010446 








MOV 


R4,-(SP) 


004164 


000741 








BR 


•INSTl 


004166 


012604 






INSTR2: 


MOV 


(SP)*.R4 


004170 


012603 








MOV 


(SP)*.R3 


004172 


000002 








RTI 





iCmVERT ASCII STRING 



004174 


010546 




•PAR AM: MOV 


R5,-(SP) 


004176 


010446 




MOV 


R4.-(SP) 


004200 


016605 


000004 


MOV 


4(SP).R5 


004204 


012537 


004364 


MOV 


(R5)t,L0LIM 


004210 


012537 


004366 


MOV 


(R5)*.HILIM 


004214 


012537 


004370 


MOV 


(R5)*.DEVADR 


004220 


112537 


004372 


MOVB 


(R5)*.L0BITS 


004224 


112537 


004373 


MOVB 


(R5)*.ADRCNT 


004230 


010566 


000004 


MOV 


R5,4(SP) 


004234 


005005 




PARAMl: CLR 


R5 


004236 


012704 


007502 


MOV 


«INBUF.R4 


004242 


122714 


000015 


CMPB 


«15,(R4) 


004246 


001420 




BEQ 


PARERR 


004250 


121427 


000060 


1»: CMPB 


(R4),«60 


004254 


002415 




BLT 


PARERR 


004256 


121427 


000067 


CMPB 


(R4).#67 


004262 


003012 




BGT 


PARERR 


004264 


142714 


000060 


BICB 


«60.(R4) 


004270 


152405 




BISB 


(R4)*.R5 


004272 


122714 


000015 


CMPB 


«15,(R4) 


004276 


001406 




BEQ 


LIMITS 


004300 


006305 




ASL 


R5 


004302 


006305 




ASL 


R5 


004304 


006305 




ASL 


R5 



:SAVE R3 ON STACK 
iSAVE R4 ON STACK 



i RESTORE R4 
{RESTORE R3 

OCTAL 
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SEQ 31 



004306 


000760 






BR 


li 


004310 


104404 




PARER9: 


INSTER 




004312 


AAA"I A 

000750 






BR 


PARAMl 










sTEST 


TO SEE IF Ml 


004314 


020537 


004366 


LIMITS: 


CMP 


R5. HILIM 


004320 


101373 






BHI 


PARERR 


004322 


020537 


004364 




CMP 


RS. LOLIM 


004326 


103770 






BLO 


PARERR 


004350 


4 W ^ Af 

13370S 


AAA V ^1 

004372 




BITS 


LOBITS. R5 


004934 


AA 4 

001 365 






BNE 


A A AP AA 

PARERR 










P T ABP 

i STORE 


NUMBER AT 


004336 


013704 


AAil T ^A 

004370 




MOV 


AFIfAAn BA 

DEVADR .R4 


004342 


A 4 AC 

010S24 




1> : 


MOV 


R5 , C R4 ) ♦ 


004 344 


062705 


AAAAA9 
000002 




AAA 

ADD 


AA AC 


0043D0 


4 AC W ^ 

105357 


AAil T ^ V 

004373 




AF AB 

DECS 


A A A Aft^lY 

ADRCNT 


AAA VCA 

004354 


AA 4 V 

001372 






BNE 


1$ 


AA M 9 
0043DO 


012604 






HOV 


/ ^ BA 

CSPJ* ,R4 


004360 


A4 <4£AC 

012605 






MOV 


^ PB ^ BC 

CSPJ* ,R5 




AAAAAg 






OTT 




004364 


000000 




LOLIM: 


0 




004366 


000000 




HILIM: 


0 




004370 


000000 




DEVADR: 


0 




004372 


000000 




LOBITS: 


0 






004373 




ADRCNT- 


LOBITS* 


1 



:SAVE PC OF TEST THAT FAILED AND R0-R5 



004374 016637 000004 



004402 
004406 
004412 
004416 
004422 
004426 
00443? 



004434 
004440 
004444 
004450 
004454 
004460 
004464 



010537 
010437 
010337 
010237 
010137 
010037 
000002 



013700 
013701 
013702 
013703 
013704 
013705 
OC- /002 



001272 
001270 
001266 
001264 
001262 
001260 



001260 
001262 
001264 
001266 
001270 
001272 



001276 .SAV05: MOV 4(SP).SAVPC 
iSAVE R0-R5 



SV05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



RS.SAVRS 
R4.SAVR4 
R3,SAVR3 
R2.SAVR2 
Rl.SAVRl 
RO.SAVRO 



{RESTORE R0-R5 



.RES05: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



SAVRO.RO 
SAVRl.Rl 
SAVR2.R2 
SAVR3,R3 
SAVR4,R4 
SAVR5.R5 



.•SAVE R7 (PC) 



SAVE RS 
SAVE R4 
SAVE R3 
SAVE R2 
SAVE Rl 
SAVE RO 
LEAVE . 



{RESTORE RO 
I RESTORE Rl 
(RESTORE R2 
(RESTORE R3 
(RESTORE R4 
(RESTORE R5 
(LEAVE 



(CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
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SEQ 32 



034496 


. f\MAf\^ 

104402 






. tUNVK : 


T VDC 

I Trt 


.ncRLr 




A1 AAA£ 
0100*0 






. LNVK I : 


nov 


RO , -I or J 




A1 A1 A^. 
U1014O 








nuv 


D1 f CD ^ 


0044 lb 


A4 t\T A^ 

010346 








MAIi 

nOV 


DT rCD^ 

K3, -ISrJ 


004500 


A1 nA A^ 

010446 








MAW 

nov 


K4 , - 1 Sr J 


0O43O<f 


A1 f\KAC 

01034O 








nuv 


DC r CD ^ 

K3 , - Ibr J 


004304 


A1 ?£.A1 

Ol ^dOX 


AAAA1 9 






nuv 


ol or CD ^ Di 
8121 Sr J , Kl 


f^\A CIA 

004310 


062 roe 




AAAA1 9 
OOOOXe 




AAA 


AO 1 or CD ^ 


AAAC 1 C 

004310 


A1 91 V7 

01213/ 








MAU 

nuv 




0043^^ 


llelo r 






x» : 


MAUD 

novo 


IKX J* .LnKLNl 


fSi\A^^C 
0043^0 


11210/ 


AAA 71 V 






MAUD 

novo 


f D1 CDAPklT 
kKx ^ ♦ . or HLN 1 


A/)^Ct9 
00433«: 


A1 H 1*7 

01313 r 








MAU 

nuv 


UK. Kl J* .DXNWKU 


f^/\A^XC 
yU4330 


122 r 0 r 


AAAAAt 


004 f 12 




PMDD 




004344 


AA 1 AAV 
00X003 








Due 


Oft 
2* 


0O434O 


042 r 3 r 


1 r f^SJV 


/W\A71 A 
004 f X4 




DxL 


A1 77AAA QTMUDA 
vl 1 1 4UU ■ OlrlMKU 


004334 


A1 XTe\A 
OiO '04 


AAA 71 A 
/ 14 




2* : 


now 


QTMUOn DA 
DinMKU .K4 


t\t\A^£J\ 
004300 


X 1 0 r v3 


vV4 f Ic 








UnKLn 1 .n3 


004304 


fti 37nn 
OXe ' UO 


W1410 






nuv 


w 1 tnr 1 nU 


00^3 f O 


A< A^AX 

0X0405 






09 : 


nuv 


OA OX 
n4 .nd 


OU43 re 


04e rod 


1 7777ft 






DXi* 


A1 7777A OX 
vX illlVt nO 


OW43 f O 


OPC f oo 


UUUVDv 






Ann 

*1UU 


AAftA OX 
VODU .n3 


i\t\Ag,n3 

UV400C 


XXOOeO 








MnuR 
novo 


OX t on '> * 

n3 1 \ nO J * 


\^4004 


AAn34i 

OOOc4X 








PI r 






A0AA04 








ROR 

nwA 


OA 


0V40XV 


nAn94i 

OVWt^X 








ri r 






006004 
WwVV^ 








ROR 

nvn 


OA 




000941 








n r 






00<>004 








ROR 

nun 


OA 

n^ 




W3wV3 










R5 

n3 




001 XA? 








One 


xt 




m 970X 

VXC ' vO 








Hnu 


AMDATA BX 




1 1 409X 






At ' 


HOUR 


.fOA') rox)* 

- ^ nv J t \. no J* 


W4O0C 


1 O^XX7 


fit 






I/CUD 


PHPPMT 


W4O0O 


001 X74 








RMr 


A ft 
^ f 


W4040 


Xv3 1 O 1 


MA71 






TQTR 


CpAPMT 


f\f\AAAA 


00140^ 
WX^v3 








RFQ 


At 
Of 




XXC ' 


w w^v 




51 • 

^ ▼ ■ 


HOUR 


4A40 fRX)* 














VAPNT 


0046% 


001S7T 








RNF 






XV JVX J 






V* : 


n RR 
UL.nD 






104409 








TYPF 


MOAT A 




005337 


004710 








UROCNT 




001 XI X 








RNF 

one 


1 « 

X 9 


nA4A74 


Ol 9li05 








MOV 

) lU V 


V or y ♦ ( nj 


004676 


012604 








MOV 


CSP)*.R4 


004700 


019603 








MOV 


fSPI* H3 
V or J * t no 


004702 


012601 








MOV 


(SP)*,R1 


004704 


012600 








MOV 


CSP)».RO 


004706 


000002 








RTI 




004710 


000000 






UROCNT : 


0 




004712 


000000 
004713 






CHRCNT : 
SPACNT* 


0 

CHRCNT*! 




004714 


000000 






BINURO: 


0 





{TRAP DISPATCH SERVICE 
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004716 
004720 
004724 
004730 
004732 
004736 
004742 
004746 



01164^. 

162716 
017616 
006316 
042716 
062716 
017616 
000136 



000000 

177001 
001330 
000000 



I ARGUMENT Qf TRAP IS EXTRACTED 

:AND USED AS OFFSET TO OBTAIN POINTER 

sTO SELECTED SUBROUTINE 



.TRPSR: MOV 

sue 

MOV 

TRPOK: ASL 
BIC 
ADD 
MOV 
JMP 



(SP).-(SP) 
#2.CSP) 
8(SP).(SP) 
(SP) 

♦177001. (SP) 
♦.TRPTAB.(SP) 
a(SP).(SP) 
8CSP)* 



GET PC OF RETURN 
■PC OF TRAP 
GET TRP 

MULTIPLY TRAP ARG BY 2 
CLEAR UNWANTED BITS 
POINTER TO SUBROUTINE ADDRESS 
SUBROUTINE ADDRESS 
GO TO SUBROUTINE 



i ERROR HANDLER 



004750 


004737 


007606 




.HLT: 


JSR 


PC.CKSUR 


004754 


032777 


010000 


174220 




BIT 


«SU12.aSUR 


004762 


001406 








BEQ 


XBX 


004764 


105777 


174220 






TSTB 


8TPCSR 


004770 


100003 








BPL 


XBX 


004772 


112777 


000207 


174212 




MOVB 


♦207.8TPDBR 


005000 


032777 


020000 


174174 


XBX: 


BIT 


*SU13.8SUR 


0C5006 


001105 








BNE 


HALTS 


005010 


021637 


001234 






CMP 


(SP).LSTERR 


005014 


001404 








BEQ 


1) 


005016 


011637 


001234 






MOV 


(SP),LSTERR 


005022 


105037 


001325 






CLRB 


ERRFLG 


005026 


104406 






It: 


SAV05 




005030 


011605 








MOV 


(SP).R5 


005032 


162705 


000002 






SUB 


*2.R5 


005036 


011504 








MOV 


(R5).R4 


005040 


006304 








ASL 


R4 


005042 


061504 








ADD 


(RS).R4 


005044 


006304 








ASL 


R4 


005046 


042704 


177001 






BIC 


♦177001.R4 


005052 


062704 


036362 






ADD 


*.ERRTAB.R4 


005056 


012437 


005172 






MOV 


(R4)f.ERRMSG 


005062 


012437 


005204 






MOV 


CR4)«.DATAHD 


005066 


011437 


005216 






MOV 


(R4).DATA6P 


005072 


105737 


001325 






TSTB 


ERRFLG 


005076 


001403 








BEQ 


TYPMSG 


005100 


005737 


005216 






TST 


DATABP 


005104 


001040 








BNE 


TYPDAT 


005106 


104402 


005672 




TYPHSG: 


TYPE 


.MCRLF 


005112 


104402 


005672 






TYPE 


.MCRLF 


005116 


005737 


001220 






TST 


LOCK 


005122 


001402 








BEQ 


11 


005124 


104402 


006142 






TYPE 


.MASTEK 


005130 


104402 


006130 




It: 


TYPE 


.MTSTN 


005134 


104411 


005330 






CNVRT 


.XTSTN 


005140 


104402 


006217 






TYPE 


.MERRPC 


005144 


104411 


005322 






CNVRT 


.ERTABO 


005150 


104402 


005672 






TYPE 


.MCRLF 


005154 


112737 


177777 


001325 




MOVB 


#1. ERRFLG 


005162 


005737 


005172 






TST 


ERRMSG 


005166 


001402 








BEQ 


URKO.FM 



.•CHECK FOR SOFT SWR 
iBELL ON ERROR? 
:BR IF NO BELL 
iTTY READY. 

iDON'T WAIT IF TTY NOT READY, 

jPUSH A BELL AT THE TTY. 

! DELETE ERROR PRINT OUT? 

;BR IF NO PRINT OUT WANTED. 

jWAS THIS ERROR FOUND LAST TIME? 

sBR IF YES 

; RECORD BEING HERE 

; PREPARE HEADER 

.•SAVE ALL PROC REGISTERS 

iGET THE PC OF ERROR 

;GET ADDRESS OF TRAP CALL 

:GET HLT INSTRUCTION 

I MULT BY TWO 

: DOUBLE IT 

SMU.T AGAIN 

I CLEAR JUNK 

.-GET POINTER 

(GET ERROR MESSAGE 

:GET DATA HEADRER 

iGET DATA TABLE 

iTYPE HEADREER 

'BR IF YES 

IdoES data table EXIST? 
;BR IF YES. 



SHOW IT 
TYPE PC. 
SHOW IT 
GIVE A CR/LF 

NO MORE HEADER UNLESS NO DATA TABLE. 
IS THERE AN ERROR MESSAGE? 
BR IF NO. 
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005170 


104402 








TYPE 




005172 


000000 






ERRMSG: 


0 




005174 








MRKO.FM: 




005174 


005737 


005204 






TST 


OATAHO 


005200 


001402 








BEQ 


TYPO AT 


005202 


104402 








TYPE 




005204 


000000 






DATAHD: 


0 




005206 


005737 


005216 




TYPOAT : 


TST 


DATABP 


005212 


001402 








BEQ 


RESREG 


005214 


104410 








CONVRT 




005216 


000000 






OATABP: 


0 




005220 


104407 






RESREG: 


RES05 




005222 


022737 


003522 


000042 


HALTS: 


CMP 


*$EN0AD.S*42 


005230 


001403 








BEQ 


1$ 


005232 


005777 


173744 






TST 


SSUR 


005236 


100005 








BPL 


EXITER 


005240 


010046 






1$ : 


PUSHRO 




005242 


016600 


000002 






MOV 


2CSP).R0 


005246 


000000 








HALT 




005250 


012600 








PQPRO 




005252 


005237 


001232 




EXITER: 


INC 


ERRCNT 


005256 


032777 


000400 


173716 




BIT 


*SU08.SSUR 


005264 


001007 








BNE 


1$ 


0C5266 


032777 


002000 


173706 




BIT 


♦SUIO.SSUR 


005274 


001411 








BEQ 


2$ 


005276 


013737 


001216 


001214 




NOV 


NEXT, RETURN 


005304 


012706 


001200 




1): 


NOV 


♦STACK. SP 


005310 


013701 


001404 






nov 


ONCSR.Rl 


005314 


000177 


173674 






JMP 


8RETURN 


005320 


000002 






2*: 


RTI 




005322 


000001 






ERTABO: 






005324 


006 


002 






.BYTE 


6.2 


005326 


001276 








SAVPC 




005330 


000001 






XTSTN: 


1 




005332 


003 


002 






.BYTE 


3.2 


005334 


001226 








TSTNO 














{ENTER 
» - - - 


HERE ON POUER 


005336 








.PFAIL: 






005336 


012737 


005350 


000024 




NOV 


♦RESTART. 24 


005344 


000000 








HALT 




005346 


000777 








BR 














sPROCESSOR WILL TRAP 


005350 








RESTAR : 






0053S0 


012737 


005336 


000024 




NOV 


♦.PFAIL. 24 


005356 


012706 


001200 






NOV 


♦STACK.SP 


005362 


013701 


001404 






NOV 


DNCSR.Rl 


005366 


005037 


001416 






CLR 


TEMP 


005372 


005237 


001416 






INC 


TEMP 


005376 


001375 








BNE 


.-4 


005400 


104402 


005675 






TYPE 


.MPFAIL 


005404 


104411 


005430 






CNVRT 


.PFTAB 


005410 


105037 


001325 






CLRB 


ERRFL6 



sTYPE 

: ERROR MESSAGE 

loATA HEADER? 
:BR IF NO 
:TYPE 

; DATA HEADER 
5 DATA TABLE? 
{BR IF NO. 
tSHOU 

; DATA TABLE 

i RESTORE PROC REGISTERS 

sIF ACT-11 AUTOMATIC MODE. HALT!! 

;HALT ON ERROR? 

:BR IF NO HALT ON ERROR 

'SAVE RO 

isHOU ERROR PC IN DATA LIGHTS 

;HALT 

:GET RO 

: UPDATE ERROR COUNT 
sGOTO TOP OF TEST? 
sBR IF YES 
sGOTO NEXT TEST? 
:BR IF NO 

;SET FOR NEXT TEST 
! RESET SP 
;SET UP Rl 

{GOTO SPECIFIED TEST 
(RETURN 



FAILURE 



sSET UP FOR POWER UP TRAP 
{HALT ON POUER DOWN NORMAL 



HERE WHEN POUER IS RESTORED 



J SET UP FOR POUER FAILURE 

J RESET THE STACK POINTER 

sRESTORE Rl 

;READY FOR TIMMER 

sPLUS ONE TO THE TIMER! 

:BR IF MORE TO 60 

;TYPE THE MESSAGE 

sTELL l*HAT TEST TO RETURN TO. 

; START CLEAN 
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SEQ 35 







Ac 


005420 


005011 




005422 


104412 






0001 77 


173564 




000001 




00543? 

VV "JC 


003 


002 








005436 






005436 


01P7 77 


000020 


005444 






005446 


AC A A A A 




005450 






005450 


104414 




005452 


121224 




005454 


032777 

III 


000020 


005462 


001772 

11^ 




005464 


000002 




005466 






005466 

W w 


152777 

III 


000100 


005474 


142777 


000300 


005502 

W Vb 


000002 

vvvvvs. 




005504 






005504 


152777 


000002 


005512 


013677 


173676 


005516 


062746 


000002 


00SS22 


032777 


OOOiOO 


005530 


001401 




005532 


000000 




005534 


152777 


000003 


005542 


142777 


000007 


005550 


000002 




005552 






005552 


013637 


001416 


005556 


062746 


000002 


005562 


152777 


000020 


005570 


027777 


173610 


005576 


142777 


000020 


005604 


005337 


001416 


005610 


001364 




005612 


000002 




005614 






005616 






005616 


013637 


001416 


005622 


062746 


000002 


005626 






005626 


104414 




005630 


021364 




005632 


032777 


000002 


005640 


001772 




005642 






005642 


104414 




005644 


021364 





173746 



173730 



173712 
173704 



173674 
173452 



173644 
173636 



173616 
173606 
173602 



PFTAB: 
.BYTE 



.DELAY: 



1*: 



CLR 
CLR 

MSTCLR 

JMP 

1 

3.2 
TSTNO 



MOV 

ROMCLK 

121111 

ROMCLK 

121224 

BIT 

6EQ 

RTI 



.MSTCLR: 

BISB 
BICB 
RTI 

.ROMCLK: 

BISB 

MOV 

ADO 

BIT 

BEQ 

HALT 

1$: BISB 
BICB 
RTI 

.OATACLK: 



173552 



It: 



31: 

.TIMER: 



1»: 



21: 



LSTERR 
(Rl) 

8RETURN 



«20,a')MP04 



•6IT4.?iOMP04 



H f 14 U tl H H V If I 



CLEAR MAINT BITS 

START CLEAN UP OF DEVICE 

START DOING THAT TEST AGAIN. 



;NEXT UORO IS INSTRUCTION, ROMCLK PC-5304 
iPOKE CLOCK DELAY BIT 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

P0RT4_IBUS*11 

IS CLOCK BIT SET? 

BR IF NO 



«BIT6,a0MCSRH :SET MASTER CLEAR 
«BIT6!BIT7.S0MCSRH : CLEAR MASTER CLEAR AND RUN 
•.RETURN 



«BIT1.S0MCSRH 

9(SP)«.90MP06 

♦2.-(SP) 

«SU06.8SUR 

1$ 



iSET ROMI 

:L0A0 INSTRUCTION IN SEL6 
; ADJUST STACK 
tHALT IF SU06 -1 
:BR IF SU06 -0 
sHALT BEFORE CLOCKING INSTRUCTION 
«6IT1!BIT0,8DMCSRH ; CLOCK INSTRUCTION 
«eiT2!BITl!BIT0.80MCSRH tCLEAR ROMO. ROMI. STEP 



MOV 


«SP)*.TEMP 


sPUT TICK COUNT IN TEMP 


ADD 


♦2.-(SP) 


.-ADJUST STACK 


BISB 


«BIT4.80MCSRH 


sSET STEP LU 


CMP 


S0MCSR.80MCSR 


{WASTE TIME 


BICB 


«BIT4.8DMCSRH 


J CLEAR STEP LU 


DEC 


TEMP 


:OEC TICK COUNT 


BNE 


1* 


iBR IF NOT DONE 


RTI 




tRETURN 


.BLKU 


1 





MOV 8CSP)*.TEMP sMOVE COUNT TO TEMP 

ADD «2,-CSP) (ADJUST STACK 

ROMCLK :NEXT UORD IS INSTRUCTION. ROMCLK PC«5304 

021364 :P0RT4.IBUS* REGll 

BIT *2.S0MP04 sIS PGM CLOCK BIT CLEAR? 

BEQ It iBR IF YES 

ROMCLK sNEXT UORO IS INSTRUCTION. ROMCLK PC-5304 

021364 :P0RT4.IBUS* REGll 
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?/ 



005646 




000002 


1/3536 




BIT 


005654 


001372 








6NE 


005656 


005337 


001416 






DEC 


005662 


001361 








BNE 


005664 


000002 








RTI 


005666 


040 


040 


077 


MOM: 


.ASCIZ 


005672 


015 


012 


000 


MCRLF: 


•ASCIZ 


005675 


377 


120 


127 


MPFAIL : 


.ASCIZ 


005733 


377 


105 


116 


MEPASS : 


.ASCIZ 


005755 


377 


122 


000 


MR: 


.ASCIZ 


005760 


377 


116 


117 


MERR2: 


.ASCIZ 


006005 


377 


111 


• 4 ^ 

116 


MERR3: 


.ASCIZ 


006031 


377 


124 


105 


MTSTPC: 


.ASCIZ 


006043 


377 


114 


117 


Ml AAiy 

MLOCK: 


.ASCIZ 


006072 


103 


123 


122 


MCSRX: 


.ASCIZ 


006100 


126 


105 


103 


MVECX: 


.ASCIZ 


006106 


120 


101 


123 


MB 110 ew 

MPASSX : 


.ASCIZ 


006117 


105 


122 


4 It 

122 


PIcnRX: 


A 0AT^ 

.ASCIZ 


006130 


124 


105 


4 t9 

123 


MTSTN; 


.ASCIZ 


006142 


052 


000 




MASTEK : 


.ASCIZ 


006144 


377 


123 


4 AC 

105 


MNEU: 


A 0#*Y? 

.ASCIZ 


006217 


120 


103 


A^ t 

072 


ncRRrC : 


•ASCIZ 


0C6224 


212 


040 


Ail A 

040 


XHEAD : 


A C ATT 

•ASCII 


006263 


377 


Ail A 

040 


Ail A 

040 




A 0 A TT 

.ASCII 


006322 


212 


Ail A 

040 


Ail A 

040 




.ASCII 


006374 


377 


ACC 

033 


ACC 

033 




. ASCIZ 


006450 


377 


110 


117 


NUM: 


.ASCIZ 


006510 


377 


103 


123 


CSR: 


.ASCIZ 


006526 


377 


126 


4 AC 

105 


ur A . 

VcC: 


A C A T? 
.ASCIZ 


006547 


377 


4 A^ 

102 


4 

122 


DDTn 

PRIO : 


.ASCIZ 


006606 


377 


4 4 4 

111 


4 A£ 

lOo 


CRAM: 


.ASCIZ 


006704 


377 


4 

127 


4 4 A 

110 


MODU: 


A CAT 7 
.ASCIZ 


007016 


377 


4 

123 


4 

127 


1 TUP 

LINE : 


A CA 

.ASCIZ 


007054 


377 


123 


127 


DM . 

on: 


.ASCIZ 


007114 


377 


114 
111 


123 


tONN: 


. ASCIZ 


f\f\^A Cil 

007154 


3 n 


llo 


11 1 


NOAv. 1 : 


.ASCIZ 


007205 


377 


A 4 O 

012 


123 


SWnco: 


A CAT7 
.ASCIZ 


007215 


116 


105 


127 


SUMESl : 


.ASCIZ 


007223 


377 


377 


104 


CONERR : 


.ASCIZ 




377 


1 AC 

103 


4 TA 
130 


CNcnn : 


.ASCIZ 


Q07320 


040 


ACA 
030 


1 AA 
104 


UnCn: 


.ASCIZ 


007330 


AAA 

040 


ACA 
030 


11V 

113 


Kncn: 


•ASCIZ 


007340 


377 


4 AA 
104 


lie 

115 


SrccD: 


.ASCIZ 










cucu 
.CVcN 




007454 


AAAA AC 
000003 










007456 


AA£ 

006 


AAV 

003 






• 01 1 C 


007460 


A/k i 

001246 








TCM0 1 


007462 


006 


AAI 

003 






O VTC 


007464 


AA 4 ^CA 

001250 








TCM09 


Wv i400 


fine. 








■ D 1 1 C 


007470 


001252 








TEMP3 


007472 


006 


003 






.BYTE 


007474 


001254 








TEMP4 


007476 


006 


002 






.BYTE 


007500 


001256 








TEMP5 



.EVEN 



SEQ 36 



♦2.aDMPQ4 ilS PGM CLOCK BIT SET? 

2* sBR IF YES 

TEMP jOEC COUNT 

1* :BR IF NOT DONE 

sRETURN 



/ ?/ 
<15><12> 

<377>/PUR FAILED. RESTART AT TEST / 

<377>/EN0 PASS CZDMC / 

<377>/R/ 

<377>/N0 DEVICES PRESENT./ 
<377>/INSUFFICIENT DATA'/ 
<377>/TEST PC-/ 
<377>/L0CK ON SELECTED TEST/ 
/CSR: / 
/VEC: / 
/PASSES: / 
/ERRORS: / 
/TEST NO: / 
/*/ 

<377>/SET SWITCH REG TO DMCll'S DESIRED ACTIVE./ 



/PC: / 

<212>/ MAP OF OMCll STATUS/ 

<377>/ / 

<212>/ PC CSR STATl STAT2 STAT3/ 
<377>/ / 



<377>/H0M MANY OMCll 'S TO BE TESTED?/ 

<377>/CSR ADDRESS?/ 

<377>/VECT0R ADDRESS?/ 

<377>/8R PRIORITY LEVEL? (4.5.6.7)?/ 

<377>/IF OMC HAS CRAM (M8204) TYPE "Y". IF CROM (M8200) TYPE "N" ?/ 
<377>/UHICH LINE UNIT? IF NONE TYPE "N", IF M8201 TYPE "1". IF M8202 TYPE 

<377>/SMITCH PAC#1 (DDCMP LINE ♦)?/ 
<377>/SMITCH PAC#2 (BM873 BOOT ADD)?/ 
<377>/IS THE LOOP BACK CONNECTOR ON?/ 
<377>/N0 DEVICES ARE SELECTED/ 
<377><12>/SWR- / 
/NEU? / 

<377><377>/0MCll FOUND AT NON-STANDARD ADDRESS PC: / 
<377>/EXPECTED FOUND/ 
/ (DHC) / 
/ (KHC) / 

<377>/0MCll-ARCREM0TE.L0U SPEED) OR DMC11-AL(L0CAL.HIGH SPEED) TYPE "R" OR 



6.3 
6.3 
6.3 
6.3 
6.2 
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SEQ 37 



sBUFFERS FOR INPUT OUTPUT 

007502 000000 INBUF: 0 

007544 .-.♦40 

007544 000000 WAT A: 0 

007606 .'.*40 



{ROUTINE USED TO CHANGE SOFTUARE SWITCH 
: REGISTER USING THE CONSOLE TERMINAL 



007606 


022737 


000176 


001202 


CKSUR: 


CMP 


4SUREG.SWR 


;IS THE SOFT SWR BEING USED? 


007614 


001077 








BNE 


CKSURS 


iBR IF NO 


007616 


105777 


171362 






TSTB 


nT L/f* (*n 

8TKCSR 


:IS DONE SET? 


007622 


M AAAAV 

100003 








dPL 


2t 


;G0 ON IF NOT SET 


007624 


012737 


• ^^^^^ 

177777 


AA Vil 

003734 




nOV 


V- 1 . DONE 


TP f\AklP 1? PT PPT Pi ikf^ 

J IF DONE SET, SET FLAG 


007632 


022777 


A A AAA ^ 

000007 


171346 


2* : 


CnP 


#7 ,9TKDDn 


llAC* r*TDI ^ T WfiP A<1 f ^ BTT A(*ATT% 

;WAS CTRL G TYPED? C7 BIT ASCII) 


007640 


001404 








Of A 


11 


;Bn Ir YES 


007642 


022777 


AAAOA^ 

000207 


171336 




CnP 


A^A7 ATl/nOD 

v207 .BTKDdK 


;WMS CTRL G TYPED? 18 BIT ASCII) 


AA^f CA 

007650 


A A 4 A £ 4 

001061 








BNE 


CtJOC 

CKSmR3 


son Ir NO 


007652 


A4 A^il£. 

010246 






1* : 


nov 


R2, -V.5r^ 


.CTADC DO 

SolOKE n2 


007654 


A 4 AV Jl £. 

010346 








nuv 


Di r coy 


.CTADC D1 

:oI0nt Hi 


0Q7d5d 


010446 








nuv 


DA rCD'^ 

K4 1 - 1 or y 


. CTnOC DA 

J o 1 Unc n4 




Ole 7 if 


1 1 1 1 1 1 


vlUUlD 




nuv 


A 4 cud 
W- 1 , OHr Lo 


. CCT CnCT TVDC rtl IT CI AP 

ibcl oUr 1 1 Trt UUi rLHu 


00 76 DO 


OOaOOe 






LKsHKl : 


f^l D 


OO 
K2 


.n CAD klCLi CUD ^AUTCIklTC 

■LLtnn NtH oWn LUNItNIo 


00 f 6 r 0 


Ai OTAA 

Qxc r04 


1/ 1 1 f 1 






nuv 


A 1 OA 
v-l,K4 


. CCT CI Af* Tn AI I AMCC 

•oti rLnu lU nLL UNto 


007674 


. A^ A A9 

10440c 


OO r203 






TVDC 

1 Trt 


CUMCC 


■TVDC fCUD* H 

; 1 Trt oHK* 


AA^^AA 
00 f f 00 


1044x1 






ri^CUDO ■ 


PMUDT 
LnVK 1 




.TVDC m IT DDCCCUT f^nUTCklTC 

; 1 Trt UUI rntotNl LUNItNIo 


00 J r02 


A1 AACO 

0100 3e 








OUr 1 9M 




. nC CftCT CUTT^U DCPTCTCD 

;Ur our 1 oHiiLn ntulolcn 


AA77AA 

007704 


4 AA^ AO 

104402 


AA70 1 Q 
OO f213 




LKaHKS : 


1 Trt 


CLMCC 1 


• TVDC Ntacuo H 
; 1 Trt NtH ; 


AA^^ 4 A 

00 7 flQ 


AAA*?"!*? 

004 f3f 


A1 AAOA 

010020 




LKaHK4 : 


ICD 
Jon 


or TklTUAO 

rL , inLnnn 


.CCT DCCDfllJCC 

ioti ntorUNot 


007 r 14 


022 fOi 


OOOOl J 






unr 


W13 , no 


■UAC TT A rOO 

i MHO ± 1 n Ln ; 


AA770A 

w r fc\) 


AA 1 A OA 

001424 








RFQ 
DCW 




•BO TP VCC 

;Dn Xr Tto 




022 iU3 


VUUU12 








9Xc . no 


• UAC TT A i C 9 
} Hno X 1 n Lr I 


00 f rc6 


AA 1 A 1 
0U1410 








BPO 
DCH 


At 

4# 


•RO TC VCC 
•Dn Xr Tto 


AA*7'7tA 


Uc2 fyfi 


AA/\AO<\ 






wnr 


AOS P'X 

v23* no 


• UAC TT TTDl IIO 
{ Hno XI LI nL U ; 




VvX 1 












• BR IF YFSfSTART QVFR') 


007736 


022703 


000007 






CNP 


♦7.R3 


J IF CNTL G GET NEXT CHAR 


007742 


001762 








BEQ 


CKSUR4 




007744 


005004 








CLR 


R4 


ilT MUST BE A DIGIT SO CLR FLAG 


007746 


042703 


177770 






BIC 


♦177770. R3 


iONLY 0-7 ARE LEGAL SO MASK OFF BITS 


007752 


006302 








ASL 


R2 


(SHIFT R2 3 TIMES 


007754 


006302 








ASL 


R2 




007756 


006302 








ASL 


R2 




007760 


050302 








BIS 


R3.R2 


(ADO LAST DIGIT 


007762 


000752 








BR 


CKSUR4 


(GET NEXT CHARACTER 


007764 


012766 


002002 


000006 


4$: 


nov 


♦.START.6(SP) 


iLF WAS TYPED SO GO TO START 


007772 


005704 






5«: 


TST 


R4 


lis FLAG CLEAR? 


007774 


001002 








BNE 


6* 


:IF NOT DON'T CHANGE SOFT SUR 


007776 


010277 


171200 






hOV 


R2.eSUR 


:IF YES THEN WRITE NEU CONTENTS TO SOFT 


010002 


005037 


010016 




6>: 


CLR 


SUFLG 


(CLEAR TYPEOUT FLAG 


010006 


012604 








MOV 


(SP)».R4 


(RESTORE R4 


010010 


012603 








MOV 


(SP)*.R3 


(RESTORE R3 


010012 


012602 








MOV 


(SP)*.R2 


(RESTORE R2 


010014 


000207 






CKSWR5: 


RTS 


PC 


(RETURN 



CZOMC MACRO V04.00 27-JUN-85 13:16:37 PAGE 26-10 
GENERAL UTILITIES CTYPEOUT. ERROR. SCOPE. ETC) 



010016 000000 

010020 105777 171160 

010024 100375 

010026 017703 171154 

010032 105777 171152 

010036 100375 

010040 010377 171146 

010044 042703 000200 

010050 000207 

010052 000001 

010054 006 002 

010056 000176 



SUrLG; 0 

INCHAR: TSTB 8TKCSR 

BPL .-4 

nOV 9TK0BR.R3 

TSTB 8TPCSR 

BPL . -4 

nOV R3,8TP08R 

BIC 06IT7.R3 

RTS PC 

SOFTSU: 1 

.BYTE 6.2 
SURE6 



L 



SEQ 38 



CZOMC MACRO V04.00 27-JUN-85 13:16:37 PAGE 27 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE. ETC) 



SEQ 39 



ROUTINE USED TO "CYCLE" THROUGH UP TO 16 OMCll'S 

THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 

AND RUNS THE SPECIFIED DHCll'S. THIS ROUTINE *MUST* 

BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 

SETUP NECESSARY. 



010060 


005737 


001306 




CYCLE: 


TST 


DMACTV 


(ARE ANY DMCll'S TO BE TESTED? 


010064 


-001004 








BNE 


11 


iBR IF OK 


010066 


104402 


007154 






TYPE 


,N0ACT 


:N0 DMCll'S SELECTED!! 


010072 


000000 








HALT 




iSTOP THE SHOW. 


010074 


000776 








BR 


.-2 


;DISQUALIFY CONT. SU. 


010076 


000241 






It: 


CLC 




t CLEAR PROC. CARRY BIT. 


OlOlOO 


006137 


001316 






ROL 


RUN 


(UPDATE POINTER 


010104 


005537 


001316 






AOC 


RUN 


iCATCH CARRY FROM RUN 


010110 


062737 


000004 


001322 




ADD 


44. MILK 


1 UPDATE POINTER 


010116 


062737 


000010 


001320 




ADD 


«10.CREAH 


i UPDATE ADDRESS POINTER. 


010124 


022737 


001700 


001320 




01P 


«0ri. HAP* 200, CREAM 


010132 


001006 








BNE 


2« 


iKEEP GOING 1 NOT ALL TESTED FOR. 


010134 


012737 


001500 


001320 




nov 


«0M. MAP. CREAM 


iRESET ADDRESS POINTER. 


010142 


012737 


001702 


001322 




MOV 


«CNT. MAP, MILK 


(RESET PASS COUNT POINTER 


010150 


033737 


001316 


001306 


21: 


BIT 


RUN. DMACTV 


lis THIS ONE ACTIVE? 


010156 


001747 








BEQ 


11 


iBR IF NO 


010160 


013700 


001320 






MOV 




iuci nuuNcda rUXfilcK 


010164 


013702 


001322 






MOV 


MILK.R2 


iGET PASS COUNT POINTER 


010170 


012037 


001404 






MOV 


CRO)*.OMCSR 


iLOAD SYSTEM CTRL. REG 


010174 


011037 


001374 






MOV 


CRO).OMRVEC 


iLOAO VECTOR 


010200 


042737 


177000 


001374 




BiC 


♦177000.0MRVEC 


1 CLEAR UNWANTED BITS 


010206 


012037 


001366 






MOV 


(R0)».STAT1 


iLOAD STATl 


010212 


012037 


001370 






MOV 


(R0)».STAT2 


iLOAO STAT2 


010216 


012037 


001372 






MOV 


(R0)».STAT3 


iLOAD STAT3 


010222 


012237 


001230 






MOV 


(R2)«.PASCNT 


iLOAD PASS COUNT 


010226 


012237 


001232 






MOV 


(R2)«.ERRCNT 


iLOAD ERROR COUNT 


010232 


012700 


000002 






MOV 


•2.R0 


iSAVE CORE THIS WAY! 


010236 


013737 


001404 


AA4 Af\A. 

001406 




nov 


OMCSR.OMCSRH 




010244 


005237 


001406 






INC 


OMCSRH 




010250 


013737 


001406 


001410 




MOV 


OMCSRH.DMCTL 




010256 


005237 


001410 






INC 


OMCTL 




010262 


013737 


001410 


001412 




MOV 


OMCTL.OMP04 




010270 


060037 


001412 






ADD 


R0.0MP04 




010274 


013737 


001412 


001414 




MOV 


W1P04.0HP06 




010302 


060037 


001414 






ADD 


R0,0MP06 




010506 


013737 


001374 


001376 




MOV 


OMRVEC.DMRLVL 


iPTY LVL 


010314 


060037 


001376 






ADD 


RO.DMRLVL 




010320 


013737 


001376 


001400 




MOV 


OnRLVL.OMTVEC 


!tx VEC 


010326 


060037 


001400 






ADD 


RO.DHTVEC 




010352 


013737 


001400 


001402 




MOV 


OMTVEC.DMTLVL 


!tX LVL 


010340 


060037 


001402 






AOO 


RO.DMTLVL 




010344 


032737 


000002 


001236 




BIT 


•SUOl.STRTSU 


lis TEST NO. SELECTED 


010352 


001450 








BEQ 


?• 


iBR IF NO 


010SS4 








41: 








010354 


005737 


000042 






TST 


SM2 


{RUNNING IN AUTO MODE? 


010S60 


001045 








BNE 


71 


iBR IF YES 



SEQ 40 

CZOnC MACRO V04.00 27-JUN-8S 13:16:37 PAGE 27-1 
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010S62 


104402 


005672 






TYPE 


.MCRLP 




010366 


104403 








INSTR 




J GET TEST NO. 


010370 


006130 








HTSTN 






010372 


104405 








PARAn 






010374 


000001 








I 






010376 


001000 








1000 






010400 


001226 








TSTNO 






010402 


000 






.BYTE 


0 






010403 


001 






.BYTE 


1 






010404 


012700 


012320 






NOV 


♦TSTl.RO 




010410 


022710 






5»: 


CMP 


CPO^.CRO) 


;CMP FIRST WORD TO 12737 


010412 


012737 








MOV 


(PC)*.8(PC)* 




0:0414 


001020 








BNE 


6* 


;BR IF NOT SAME 


010416 


023760 


001226 


000002 




CMP 


TSTN0.2(R0) 


sOOES TSTNO MATCH? 


010424 


001014 








BNE 


6t 


:BR IF NO 


010426 


022760 


001226 


000004 




CMP 


«TSTN0.4(R0) 


lis LAST HORO OK? 


010434 


001010 








BNE 


6$ 


iBR IF NO 


010436 


010037 


001214 






MOV 


RO. RETURN 


:IT IS A LEGAL TEST SO 00 IT 


010442 


104402 


005755 






TYPE 


.MR 




010446 


042737 


000002 


001236 




BIC 


•SUOl.STRTSU 




010454 


000412 








BR 


8» 




010456 


005720 






61: 


TST 


(R0)» 


:POP RO 


010460 


020027 


033776 






CMP 


R0,#TLAST»10 


jAT END YET? 


010464 


001351 








BNE 


5* 


>BR IF NO 


010466 


104402 


005666 






TYPE 


.MOM 


jYES ILLEGAL TEST NO. 


010472 


000730 








BR 


4* 


J TRY AGAIN 


010474 


012737 


012320 


001214 


7$ : 


MOV 


♦TST 1. RETURN 


: PREPARE RETURN ADDRESS 


010502 


013701 


001404 




8t: 


MOV 


DMCSR.Rl 


jRl » BASE DMCll ADDRESS 


010506 


000177 


170502 






JMP 


8RETURN 


sGO START TESTING. 












J ROUTINE USED TO "AUTO 


SIZE- THE OMCll 












iCSR AND VECTOR. 














:NOTE: 


THE CSR MAY BE 


ANY WHERE IN THE FLOATING 














ADDRESS RANGE 


C160000: 164000} 












i 


ANO THE VECTOR 


MAY BE ANY UHERE IN THE 












• 

1 


FLOATING VECTOR RANGE (300:770) 


010512 








AUTO. SIZE: 






010512 


000005 








RESET 




; INSURE A BUS INIT. 


010514 


012702 


001500 




CSRMAP: 


MOV 


M)M.MAP,R2 


;L0AD MAP POINTER. 


010520 


005022 






It: 


CLR 


(R2)* 


;ZERQ ENTIRE MAP 


010522 


022702 


001700 






CMP 


40M.EN0.R2 


tALL DONE? 


010526 


001374 








BNE 


1» 


iBR IF NO 


010530 


005037 


001310 






CLR 


DMNUM 


sSET OCTAL NUMBER OF DMCll' S TO 0 


010534 


012702 


001500 






MOV 


♦0M.MAP.R2 


!R2 POINTS TO DMC MAP 


010540 


005037 


001306 






CLR 


DMACTV 


i CLEAR ACTIVE 


010544 


032737 


000001 


001236 




BIT 


«SUOO,STRTSU 


{QUESTIONS? 


010552 


001002 








BNE 


.♦6 


■BR IF YES 


010554 


000137 


At 1 

011252 






JMP 


7» 


llF NO SKIP QUESTIONS 


010560 


012737 


000001 


001256 




MOV 


♦1. TEMPS 


i START WITH I 


010566 


104403 








INSTR 






010570 


006450 








NUM 






010572 


104405 








PARAM 






010574 


000001 








1 







Z:yC "lACHO V04.00 27-JUN-85 13:16:37 PAGE 27-2 
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010576 


000020 






4 £ 

16. 




010600 


001252 






TtnPJ 




010602 


000 






.BtTE 


0 


010605 


001 






.DT It 


f 

1 


010604 


A 4 V ^ 

013737 


AA 4 

001252 


AA 4 4 C A 

001310 


nov 


TEnPJ.DnNUn 


010612 


104402 


005672 


4 Oft « 

12> : 


T VOC 


.nCKLr 


010616 


104410 






LONVRT 




010620 


A« ^AA'^ 

012002 










010622 


AAff A 

005237 


AA 4 

001256 




INC 


TLtPS 


010626 


4 A A A AV 






TMCTD 

Ins I K 




010630 


006510 










A4 W 

010632 


4 Add AC 

104400 






DADAM 




A* A£ V A 

010654 


4 £ AAAA 

160000 










0106 So 


< £ ilAAA 

164000 










010640 


AA 4 ^Cil 










010642 


000 






O VTC 


A 
U 


AC A£ A % 

010649 


AAC 

001 






.OTIC 


4 

1 


Af A£^A 

010644 


AC 

019722 


AA4 OCA 

001254 




nuv 


itnr4, V.KC / ♦ 


010650 


104409 






TiaCTS 




AC AfS*) 

010652 


006526 






VcL 




AC A£KJ 

010654 


. And AC 

X04405 










010656 


AAAAAA 
0000 OO 






A 

U 




/1 4 A£^/^ 

010660 


AAA77il 

000' /6 






77A 




AC A£^9 

010662 


AAC OCA 

001254 






1 cnr^ 




A 4 A£ £ ^ 

010664 


AAA 

000 








A 

u 


AC A&&C 


UUl 






RYTP 


4 

1 


A 4 A£.CX 


A4 *74 0 

Old'lc 


AA1 OKA 

00 lc>4 




nuv 


itnr4, \nc 1 


A1 i^TO 

Uiue fc 


1 f\AAf\0 




mi • 






A4 A£7A 

0106 /4 


0U034 1 












AAA7*<7 
UU4 * 0 f 


AC OOiC 
UlCCOO 






Pr TNTTY 


A1 A7AO 


A937AT 

Ucc (U9 


t\f\nnoA 
UUWVe4 




PHP 


WC*4 f Ff 9 


A1 A'7Ai^ 


mini A 

1U1U14 






RMT 




A4 A^4 A 

010710 


A007 All 

022 '09 


AAAA07 
OUUOc ' 




TMD 


wc ' t KS 


AC m 1 A 
010 / 14 


* ATA 1 1 






ni n 


cn 1 

jU ♦ 


A4 A'T 4 ^ 
OIU ' lO 


A1 ^7AA 
UlC 'U4 


AAAA1 1 

UUUVll 




Mn\/ 
nu¥ 


ftl 1 BA 


A1 nioo 
UlU r cc 


AA<;vnT 

UUOdUd 










A4 A70A 
010 'c4 


AAdAA 
UU39U4 








B4 


A1 nioa 
OIU ' cO 


AA1 

UU13 '3 






one 


.A 


A1 A*7TA 
UlU ' AU 


AA07AT 
U4c 'U5 


1 7A777 
1 f U 1 ' ' 






4170777 OX 
f V ' ' ' f ff O 


A4 

UlU r 94 


UOUdlC 








PX rB9') 
t V nc / 


ftl A7*i: 
UlU ' M> 


UvU4U3 






RO 




A4 A7AA 
OIU '4U 


4 AAA A3 
1U44UC 




3U* : 


TVOF 
1 T rt 




Al A7AO 
UlU 1 4e 


UU DOOO 






MOM 




UlU l44 


UUU 'Oc 






RO 

Dn 


mi 

Xv w 


Ul J'40 


1 AAAA9 
1U44UC 




flt • 

o9 : 


TYPF 




A4 A7^A 
UlU ' 3U 


UUOOUD 






ro AM 




A1 n7it3 
UlU f 3e 










pr TNTTY 


A1 A7CA 
UlU rSO 


Ucc 1 US 


AAA1 T1 
UvUi Ol 






41X1 PX 

VX ox t n 9 


A1 '^7ii0 
U 1 U r Oc 


AA 1 A37 
UU 14e 1 






RPQ 


Qt 


UlU »04 


Ucc ' Ud 


AAA4 4£ 
UUUX Xv 




rMP 


41 1 A BX 


ftl n77A 
UlU 1 r U 


AA 1 A AT 






RFQ 


AOt 




104409 






TYPE 




010774 


005666 






non 




010776 


000763 






BR 


8) 


011000 


104402 




40): 


TYPE 




011002 


007340 






SPEED 




011004 


004737 


012266 




JSR 


PC.INTTY 



:OMNUH - HOW MANY 

:TYPE WHICH DMC IS BEING DONE 
jTEMP5 IS WHICH DMC 



s STORE GSR IN HAP 



! STORE VECTOR IN MAP 

:ASK WHAT BR LEVEL 
;GET RESPONSE 

IbR IF LESS THAN 4 

IbR V GREATER THAN 7 

:R4 - NUMBER OF SHIFTS 

! SHIFT R3 LEFT 

jDEC SHIFT COUNT 

sBR IF NOT DONE 

:BIC UNWANTED BITS 

sPUT BR LEVEL IN STATUS MAP 

s CONTINUE 

; RESPONSE IS OUT OF LIMITS 
iTRY AGAIN 

;D0ES DMC HAVE CRAM? 
;GET REPLY 

:YES 
;NG 

:N0T A Y OR N 

sTYPE "?•• 
:ASK AGAIN 

:DMC11-AR OR OMCll-AL? 
:GET RESPONSE 



CZOfC MACRO V04.00 27-J'JN-85 13:16:37 PAGE 27 3 
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01 1010 


VCC ' V>7 


000122 

WVX Cfc 




CHP 


01 1014 

XV 


001414 
w x^ x^ 






BEQ 


01 1016 

VX XV Xw 


VC£ ' V<J 


0001 14 
wwx x^ 




CUP 


Ol lOPP 

VX XV4C4C 


001403 

VV L^VJ 






BEQ 


VX X vc^ 


10440? 
xv^^ vc 






TYPE 


VX XVCw 


005666 






HQM 


Ol 1010 

VX XV JV 


00076S 

WV 1 V J 






BR 


01 1032 


052762 


000002 


000004 41 $ • 


BIS 


01 1040 

VX XV^V 


000402 






BR 


01 104P 


0527 IP 

V^C 1 xc 


100000 

A www WW 


9i : 


BIS 




104402 




16>: 


TYPE 




006704 








0* 1052 


004737 


012266 




JSR 


0110S6 


022703 


000021 




CMP 


011062 


001417 






BEQ 


011064 


022703 


000022 




CMP 


011070 


001412 






BEQ 


011072 


022703 


000116 




CMP 


011076 


001403 






BEQ 


011100 


104402 






TYPE 


011102 


005666 






MQM 


011104 

VAX A 


000760 

WW • WW 






BR 


011106 


052722 


010000 


32$: 


BIS 


011112 


022222 






CMP 


011114 


000447 






BR 


011116 


0527 12 


020000 


31»: 


BIS 


011122 


104402 




30*: 


TYPE 


011124 


007114 






CONN 


011126 


004737 


012266 




JSR 


011132 


022703 


000131 




CMP 


011136 


001406 






BEQ 


011140 


022703 


000116 




CMP 


011144 


001406 






BEQ 


011146 


104402 






TYPE 


011150 


005666 






MQM 


011152 


000763 






BR 


011154 


052722 


040000 


17$: 


BIS 


011160 


000402 






BR 


011162 


042722 


040000 


18*: 


BIC 


011166 






19*: 




011166 


104403 






INSTR 


011170 


007016 






LINE 


011172 


104405 






PARAM 


011174 


000000 






0 


011176 


000377 






377 


011200 


001254 






TEMP4 


011202 


000 






• BYTE 


011203 


001 






.BYTE 


011204 


113722 


001254 




MOVB 


011210 


104403 






INSTR 


011212 


007054 






BM 


011214 


104405 






PARAM 


011216 


000000 






0 


011220 


000377 






377 


011222 


001254 






TEMP4 


011224 


000 






.BYTE 


011225 


001 






.BYTE 



♦122. R3 
16* 

«114.R3 
41* 



IS IT R 

BR IF REMOTE 

IS IT L 

BR IF LOCAL 



40* 

«6IT1.4(R2) 
16* 

«6IT15.(R2) 



PC.INTTY 
#21. R3 
30* 

#22. R3 
31* 

#116. R3 
32* 



TRY AGAIN 

SET BITl IN STAT3 

CONTINUE 

SET BIT 15 IF CRAM 

ASK UHICH LINE UNIT 
GET REPLY 

II ^ I* 

-N" 



16* 

#BIT12.(R2)« 

(R2)».(R2)* 

33* 

«eiT13.(R2) 



PC.INTTY 
♦131. R3 
17* 

«116.R3 
18* 



IF NOT A 1.2 OR N TYPE "?" 
TRY AGIAN 

SET BIT 12 IN STAT2 IF NO LU 
iPOP OVER STAT2 AND STAT3 

;SET BIT 13 IN STAT2 IF M8202 

8 ASK IF LOOP -BACK IS ON 

sGET REPLY 

;Y 

sN 



30* 

«BIT14.(R2)* 
19* 

«BIT14.(R2)* 



sIF NOT Y OR N TYPE "?" 
:TRY AGAIN 

i TURNAROUND IS CONNECTED 
iND TURNAROUND 



0 
1 

TEMP4.(R2) 



{STORE SUITCH PAC IN MAP 
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011226 


113722 


001254 






hOVB 


011252 

V* Afc »fcp 


005722 








TST 


011234 


005337 


001252 




33t: 


DEC 


011240 


001402 








BEQ 


011242 


000137 


010612 






JMP 


011246 


000137 


011702 




34): 


JMP 


011252 


012701 


160000 




71: 


MOV 


011256 


012737 


011774 


000004 




nov 


011264 


005011 






2t: 


CLR 


0tl266 


005711 








TST 


011270 


001172 








BNE 


011272 


005061 


000006 






CLR 


011276 


005761 


000006 






TST 


011302 


001165 








BNE 


011304 


012711 


002000 






MOV 


011310 


005061 


000004 






CLR 


011314 


012761 


125252 


000006 




MOV 


011322 


052711 


020000 






BIS 


011326 


022761 


125252 


000004 




CMP 


011334 


001004 








BNE 


011336 


052762 


100000 


000002 




BIS 


011344 


000431 








BR 


011346 


012711 


001000 




21t: 


MOV 


011352 


012761 


100430 


000006 




MOV 


011360 


012711 


001400 






MOV 


011364 


012711 


002000 






MOV 


011370 


022761 


016472 


000006 




CMP 


011376 


001411 








BEQ 


011400 


022761 


016461 


000006 




CMP 


011406 


001410 








BEO 


011410 


022761 


177777 


000006 




CMP 


011416 


001404 








BEQ 


011420 


000516 








BR 


011422 


052762 


000002 


000006 


23t: 


BIS 










:AT 


THIS POII 


011430 


010122 






22»: 


MOV 


011432 


012711 


001000 




15*: 


MOV 


011436 


005061 


000004 






CLR 


011442 


012761 


122113 


000006 




MOV 


011450 


052711 


000400 






BIS 


011454 


012761 


021264 


000006 




MOV 


011462 


052711 


000400 






BIS 


011466 


122761 


000377 


000004 




CMPB 


011474 


001003 








BNE 


011476 


052712 


010000 






BIS 


011502 


000436 








BR 


011504 


032761 


000002 


000004 




BIT 


011512 


001403 








BEQ 


011514 


052712 


060000 






BIS 


011520 


000427 








BR 


011522 


032761 


000010 


000004 




BIT 


011530 


001023 








BNE 


011532 


012761 


000100 


000004 




HOV 


011540 


012761 


122113 


000006 




HOV 


011546 


052711 


000400 






BIS 


011552 


012761 


021264 


000006 




MOV 


011560 


052711 


000400 






BIS 



SEQ 43 



TEMP4.(R2)* ; 


STORE SUITCH PAG IN MAP 


(R2)* : 


POP OVER STAT3 


TEMP 3 J 


DEC OMC COUNT 


34t ; 


BR IF DONE 


12) i 


JUMP IF NOT 


13) i 


CONTINUE 


9160000, Rl ; 


SET FOR FIRST ADDRESS TO BE TESTED 


«6).S«4 


SET FOR NON-EXISTANT DEVICE TIME OUT 


(Rl) i 


CLEAR SELO 


(Rl) i 


IF DMCll DMCSR S/B 0 


3) 


IF NO OEV : TRAP TO 4. IF NO BIT 8 THEN 


6(R1) 


CLEAR SEL6 


6{R1) 


IF DMCll THEN DMRIC S/B «0! 


3) 


BR IF NOT OMCH 


OfllTlO.CRl) 


SET ROMO 


4(R1) 


CLEAR SEL4 


#125252, 6(R1) 


WRITE THIS TO SEL6 


#BIT13,(R1) 


WRITE IT! 


#125252, 4(R1) 


WAS IT WRITTEN? 


21) 


IF NO IT IS NOT CRAM 


#BIT15.2(R2) 


SET BIT15 IF CRAM 


22) 




#BIT9.(R1) 


SET ROMI 


#100430, 6(R1) 


PUT INSTRUCTION IN SEL6 


#flIT9!BIT8.(Rl) 


CLOCK INSTRUCTION (MICRO PROC PC TO 0) 


#BIT10,(R1) 


.SET ROMO 


#016472, 6(R1) 


jIS IT LOCAL CROM? 


23) 


.BR IF YES 


#016461. 6(R1) 


;IS IT REMOTE CROM? 


22) 


;BR IF YES 


#-1.6(Rl) 


jNO CROM? 


22) 


iBR IF YES 


3) 


iNOT A OMC 


«BIT1,6(R2) 


;SET BIT 1 IN STAT3 


IT IS ASSUMED THAT Rl HOLDS A DMCll CSR ADDRESS. 


R1.(R2)* 


t STORE CSR IN CORE TABLE. 


♦BIT9.CR1) 


t CLEAR LINE UNIT LOOP 


4(R1) 


: CLEAR P0RT4 


«122113.6(R1) 


iLOAO INSTRUCTION (CLR DTR) 


«BIT8.(R1) 


; CLOCK INSTRUCTION 


#021264, 6(R1) 


iLOAO INSTRUCTION 


«BIT8.(R1) 


iCLOCK INSTRUCTION 


♦377.4(R1) 


;IS IT ALL ONES? 


.♦10 


;BR IF NO 


«eiT12,(R2) 


sIF YES, NO LINE UNIT. SET STATUS BIT 


20) 




#BIT1.4(R1) 


:IS SUITCH A ONE? 


.♦10 


:BR IF M8201 


«6IT13!BIT14.(R2) !M8202 ASSUME CONNECTOR 


20) 


i CONNECTOR ON) 


#BIT3,4(R1) 


;IS MRDY SET 


20) 


iBR IF M8201 NO CONNECTOR (ON LINE) 


#BIT6.4(R1) 


iLOAO P0RT4 


#122113, 6(R1) 


J LOAD INSTRUCTION 


«BIT8.(R1) 


5 CLOCK INSTRUCTION(SET DTR) 


#021264, 6(R1) 


iLOAO INSTRUCTION 


•BITB.CRl) 


iCLOCK INSTRUCTION(REAO MODEM REG) 
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011564 


032761 


000010 


000004 




BIT 


011572 


001402 








BEQ 


011574 


052712 


040000 






BIS 


011600 


005722 






20t: 


TST 


011602 


012761 


021324 


000006 




HOV 


011610 


012711 


001400 






MOV 


011614 


156122 


000004 






BISB 


011620 


012761 


021344 


000006 




nov 


011626 


012711 


001400 






hOV 


011632 


156122 


000004 






BISB 


011636 


005722 








TST 


011640 


005011 








CLR 


011642 


005237 


001310 






INC 


011646 


022737 


000020 


001310 




CMP 


011654 


001412 








BEQ 


011656 


005011 






it: 


CLR 


011660 


005061 


000006 






CLR 


011664 


062701 


000010 




14»: 


ADD 


011670 


022701 


164000 






CMP 


011674 


001402 








BEQ 


011676 


000137 


011264 






JMP 


011702 


005037 


001306 




13»: 


CLR 


011706 


005737 


001310 






TST 


011712 


001423 








BEQ 


011714 


013701 


001310 






MOV 


011720 


010137 


001314 






MOV 


011724 


000241 






4«: 


CLC 


011726 


006137 


001306 






ROL 


011732 


005237 


001306 






INC 


011736 


005301 








DEC 


011740 


001371 








BNE 


011742 


012737 


000006 


000004 




MOV 


011750 


013737 


001306 


001312 




MOV 


011756 


000137 


012010 






JMP 


011762 


104402 


005760 




5$: 


TYPE 


011766 


005000 








CLK 


011770 


000000 








HALT 


011772 


000776 








BR 


011774 


012716 


011664 




6»: 


nov 


012000 


000002 








OTT 


012002 


000001 






UHICH: 


1 


012004 


002 


002 






.BYTE 


012006 


001256 








TEMPS 


012010 


032737 


000001 


001236 


VECMAP: 


BIT 


012016 


001114 








BNE 


012020 


012737 


000340 


000022 




MOV 


012026 


012737 


012202 


000020 




MOV 


012034 


012702 


001500 






MOV 


012040 


012700 


000300 






MOV 


012044 


012701 


000302 






MOV 


012050 


010120 






1»: 


MOV 


012052 


012721 


000004 






MOV 


012056 


022021 








CMP 


012060 


020127 


001000 






CMP 


012064 


101771 








8L0S 



SEQ 44 



#BIT3.4(R1) 
20) 

«6IT14.(R2) 

(R2)» 

4021324. 6CR1) 

•BIT9!BIT8.(R1) 

4(R1).(R2)» 

#021344. 6(R1) 

«eiT8!BIT9.(Rl) 

4(R1).(R2)* 

(R2)» 

(Rl) 

OMNUM 

«20,DMNUM 

13 » 

(Rl) 

6(R1) 

010. Rl 

«164000.R1 

13 » 

2* 

DMACTV 

DMNUM 

5» 

DMNUM, Rl 
Rl.SAVNUM 

DMACTV 
DMACTV 
Rl 
4$ 

46 844 

OMACTV.SAVACT 

VECMAP 

.MERR2 

RO 

.-2 

«14*,(SP) 



2.2 



4SU00.STRTSU 
5* 

4340, 8*22 
44), 8*20 

#0M.MAP,R2 
4300.ro 
4302, Rl 
Rl.CRO)* 
♦4.(R1)* 
(R0)+.(R1)* 
Rl. 41000 
It 



sis may set now? 

;BR IF NO CONNECTOR 

;SET STATUS BIT FOR CONNECTOR 

;POP POINTER 

sPUT INSTRUCTION IN P0RT6 
;P0RT4_LU 15 

! STORE ODCMP LINE ♦ IN TABLE 

JP0RT6.INSTRUCTI0N 

! CLOCK INSTR. 

: STORE BM873 ADO IN TABLE 

;POP OVER STAT3 

; CLEAR ROMI 

! UPDATE DEVICE COUNTER 

J ARE MAX. NO. OF OEV FOUND? 

:YES DON'T LOOK FOR ANY MORE. 

! CLEAR BIT 10 

i CLEAR SEL 6 

{UPDATE CSR POINTER ADDRESS 

:BR IF DONE 
sJUMP IF NOT 

:UERE ANY DMCll'S FOUND AT ALL? 

sERROR AUTO SIZER FOUND NO DMCll'S IN THIS SYS. 

{SAVE NUMBER OF DEVICES 

{GENERATE ACTIVE REGISTER OF DEVICES. 

5 SET THE BIT 

:BR IF MORE TO GENERATE 

{RESTORE TRAP VECTOR 

;SAVE ACTIVE REGISTER 

iGO FIND THE VECTOR NOU. 

{NOTIFY OPR THAT NO DMCll'S FOUND. 

{MAKE DATA LIGHTS ZERO 

{STOP THE SHOU 

(DISABLE CONT. SU. 

{ENTERED BY NON-EXISTANT TIME-OUT. 

{RETURN TO MAINSTREAM 



{SET lOT TRAP PRIO TO 7 
:SET lOT TRAP VECTOR 
(SET SOFTUARE POINTER 
(FLOATING VECTORS START HERE. 
(PC OF lOT INSTR. 
{START FILLING VECTOR AREA 
(WITH .»2{ lOT 
{AOO 2 TO RO tRl 

{BR IF MORE TO FILL 
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SEQ 45 



012066 


013737 


001306 


001246 




hCV 


OMACTV. TEMPI 


STORE TEMPORALLY 


012074 


006037 


001246 




2»: 


ROR 


TEMPI 


BRING OUT A BIT 


012100 


103063 








BCC 


51 


BR IF ALL DONE 


012102 


012704 


000012 






nov 


«12.R4 i 


R4 IS INDEX REGISTER 


012106 


016437 


012252 


177776 




nov 


BRLVL(R4).PS i 


SET PS TO 7 


012114 


011201 








MOV 


(R2).R1 




012116 


012761 


000200 


000004 




MOV 


»200,4(R1) 




012124 


012711 


001000 






MOV 


«IT9.(R1) 


SET ROMI 


012130 


012761 


121111 


000006 




MOV 


«121111.6(R1} 


PUT INSTRUCTION IN P0RT6 


012136 


012711 


001400 






MOV 


«6IT9!BIT8.(R1) 


FORCE AN INTERRUPT 


012142 


105200 






7»: 


INCB 


RO 


STALL 


012144 


001376 








BNE 


.•2 


FOR TIME TO INTERUPT 


012146 


162704 


000002 






SUB 


«2,R4 


GET NEXT LOWEST PS LEVEL 


012152 


001404 








BEQ 


6) 


BR IF R4 - 0 


012154 


016437 


012252 


177776 




MOV 


BRLVL(R4),PS 


MOVE NEXT LOWER LEVEL IN PS 


012162 


000767 








BR 


7$ 


BR TO DELAY 


012164 


052762 


005300 


000002 


6*: 


BIS 


#5300. 2(R2) 


NO INTERUPT ASSUME 300 AT LEVEL 


012172 


005011 






3$: 


CLR 


(Rl) 


CLEAR ROMI 


012174 


062702 


000010 






ADD 


«10.R2 


POP SOFTWARE POINTER 


012200 


000735 








BR 


2$ 


KEEP GOING 


012202 


051662 


000002 




4>: 


BIS 


(SP).2(R2) 


GET VECTOR ADDRESS 


012206 


042762 


000007 


000002 




BIC 


#7.2(R2) 


i CLEAR JUNK 


012214 


016405 


012254 






MOV 


BRLVL«2(R4).R5 


;GET BR LEVEL OF DMCll 


012220 


006305 








ASL 


R5 


[SHIFT LEVEL 4 PLACES 


012222 


006305 








ASL 


R5 


(TO THE LEFT FOR THE 


012224 


006305 








ASL 


R5 


; STATUS TABLE 


012226 


006305 








ASL 


R5 




012230 


042705 


170777 






BIC 


#170777, R5 


; CLEAR UNWANTED BITS 


0122 S4 


050562 


000002 






QT C 


K3 (ClKe } 


. DIIT DO 1 CUCI TU CTATIIC T&OI C 


012240 


022626 








CMP 


(SP)*.CSP)* 


;POP lOT JUNK OFF STACK 


012242 


012716 


012172 






MOV 


«3$.CSP) 


5 SET FOR RETURN 


012246 


000002 








RTI 






012250 


000207 






5>: 


RTS 


PC 


sALL DONE WITH "AUTO SIZING" 


012252 


000000 






BRLVL: 


0 


i LEVEL 0 




012254 


000000 








0 


; LEVEL 0 




012256 


000200 








200 


(LEVEL 4 




012260 


000240 








240 


s LEVEL 5 




012262 


000300 








300 


! LEVEL 6 




012264 


000340 








340 


iLEVEL 7 





5 AND FIX DMCll LATER 



012266 


105777 


166712 


INTTY: TSTB 


8TKCSR 


tUAIT FOR DONE 


012272 


100375 




BPL 


.-4 




012274 


017703 


166706 


MOV 


STKDBR,R3 


{PUT CHAR IN R3 


012300 


105777 


166704 


TSTB 


STPCSR 


:WAIT UNTIL PRINTER IS READY 


012304 


100375 




BPL 


.-4 




012306 


010377 


166700 


MOV 


R3,8TPD6R 


(ECHO CHAR 


012312 


042703 


000240 


BIC 


«6IT7!BIT5.R3 


;MASK OFF LOWER CASE 


012316 


000207 




RTS 


PC 


:R£TURN 



**************************** TEST 1 *************************** 

i*VERIFY THAT REFERENCING UNIBUS DEVICE REGISTERS 
t*OOES NOT CAUSE A TIME OUT TRAP 

*************************************************************** 
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SEQ 46 



s TEST 1 





ftl 27T7 


wwvx 




T<iT1 • 
1 9 1 X : 


9 


A1 TQTMO 






fii 27X7 


01 2A2A 


001 216 




MOW 


4T^T9 MTVT 




01 d^lA 


Ol 2737 




0O122O 






vx T 1 LU^*\ 






013701 
vx ^ * vx 










OMP^P R1 






01 9700 
vxc * vv 


Art Art OA 






MOV 


M RO 


4 RFfiTQTFRQ TO OF TFQTCO 
H ncuxd t end i u DC I cd I cU 




01 9737 

VXC ' w ' 


012420 


0000 OA 

WWW"* 




MOV 


6Pi 4 


<^FT UP TTMFnilT TRAP 


OlPSIkO 


01 9737 

wXC 9 91 


000340 


00 00 OA 
www 




MOV 


A340 fi 


1 FVFI 7 


0193AI^ 

wXC^wV 


00<^71 1 
W3 / XX 






1 1 • 

XV • 


T<*T 


vnx y 


RFFFRFMrP OFUTrP DPflTCTrO 


0*2370 
v*ci9 rv 


000940 








MOP 






012372 


104401 












SU09-1? 


012374 


0697O1 
f vx 


000002 






ADD 


*2.R1 


NEXT REGISTER 


012400 


005300 








DEC 


RO 


DEC REGISTER COUNT 


012402 


001371 








BNE 


1* 


BR IF NOT LAST REGISTER 


012404 


012737 


000006 


000004 




MOV 


«6.4 


RESTORE LOC 4 


012412 


005037 


000006 






CLR 


6 


RESTORE LOC 6 


012416 


104400 








SCOPE 


i SCOPE THIS TEST 


012420 


011602 






2$: 


MOV 


(SP).R2 


GET PC OF TRAP 


012422 


104001 








EMT 


1 


i TIME-OUT ERROR 


012424 


000002 








RTI 







8 



•A************************** TEST 2 *************************** 

:*VERIFY THAT RUN CAN BE CLEARED 



i TEST 2 



012426 


012737 


000002 


001226 


TST2: 


MOV 


♦2,TSTN0 




012434 


012737 


012456 


001216 




MOV 


♦TST3,NEXT 


Rl CONTAINS BASE DMCll ADDRESS 


012442 


005011 








CLR 


(Rl) 


CLEAR DMCSR 


012444 


005005 








CLR 


R5 


CLEAR "EXPECTED" 


012446 


011104 








MOV 


(R1}.R4 


PUT DMCSR IN "FOUND" 


012450 


001401 








BEQ 


1» 


BR IF CLEARED 


012452 


104002 








EMT 


2 


ERROR DMCSR NOT CLEARED 


012454 


104400 






1$; 


SCOPE 




SCOPE THIS TEST 



9 



i*************************** TEST 3 *************************** 

i*UNIBUS REGISTER UORD DUAL ADDRESSING TEST 

i*LOAD ALL REGISTERS UITH INCREMENTING PATTERN 

:*REM) BACK ALL REGISTERS TO VERIFY CORRECT ADDRESSING 

;:************************************************************* 



012456 012737 000003 001226 TST3: 
012464 012737 012606 001216 
012472 012737 012506 001220 



012500 104412 

012502 012700 000001 

012506 005011 



1$: 



{ 

MOV 
MOV 
MOV 



TEST 3 



♦3.TSTN0 

♦TST4.NEXT 

«1«.L0CK 



MSTCLR 

MOV n.RO 
CLR (Rl) 



iRl CONTAINS BASE OMCll ADDRESS 
;MASTER CLEAR OMCll 
J START PATTERN AT 1 
(CLEAR REGISTER 
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012510 


010005 






HOV 


R0.R5 


PUT DATA IN "EXPECTED" 




012512 


010011 






MOV 


RO.(Rl) 


WRITE DMC REGISTER WITH 


PATTERN 


012514 


011104 






MOV 


(R1),R4 


READ DMC REGISTER INTO 


"FOUND" 


012516 


020504 






CMP 


R5.R4 


IS DATA CORRECT 


012520 


001401 






BEQ 


2$ 


BR IF YES 




012522 


104002 






EMT 


2 


DATA ERROR 




012524 


104401 






SCOPl 




SU09-17 




012526 


005721 






TST 


CRD* 


NEXT REGISTER 




012530 


005200 






INC 


RO 


INCREMENT DATA PPTTERN 




012532 


022700 


000005 




CMP 


05, RO 


LAST REGISTER? 




012536 


001363 






BNE 


1$ 


BR IF NO 




012540 


013701 


001404 




MOV 


DMCSR.Rl 


BASE DMCll ADDRESS TO 


Rl 


012544 


012700 


000001 




MOV 


«1.R0 


RESTART PATTERN AT 1 


012550 


012737 


012556 


001220 


MOV 


«3$.L0CK 


NEW SCOPl 




012556 


010005 




3): 


MOV 


R0.R5 


PUT DATA IN "EXPECTED" 




012560 


011104 






MOV 


(R1).R4 


READ DMC REGISTER INTO 


"FOUND" 


012562 


020504 






CMP 


R5,R4 


IS DATA CORRECT 


012564 


001401 






BEQ 


4$ 


BR IF YES 




012566 


104002 






EMT 


2 


DUAL ADDRESSING ERROR 




012570 


104401 




4): 


SCOPl 




SU09-17 




012572 


005721 






TST 


CRD* 


NEXT REGISTER 




012574 


005200 






INC 


RO 


INCREMENT PATTERN 




012576 


022700 


000005 




CMP 


«5.R0 


LAST REGISTER? 




012602 


001365 






BNE 


3$ 


BR IF NO 




012604 


104400 






SCOPE 


J SCOPE THIS TEST 





12 

T£ST 4 *************************** 

s*CONTROL STATUS REGISTER URITE/READ TEST 
s*SET BITO, VERIFY BITO WAS SET 
:*CLEAR BITO. VERIFY BITO WAS CLEARED 













; TEST 


4 




012606 


012737 


000004 


001226 


TST4: 


MOV 


♦4,TSTN0 




012614 


012737 


012704 


001216 




MOV 


♦TST5.NEXT 




012622 


012737 


012632 


001220 




MOV 


*1*.L0CK 




012630 


104412 








MSTCLR 




(MASTER CLEAR OMCll 


012632 


013701 


001404 




1*: 


MOV 


DMCSR.Rl 


;PUT REGISTER ADDRESS IN Rl 


012636 


012705 


000001 






MOV 


«BITO.RS 


;PUT DATA IN "EXPECTED" 


012642 


010511 








MOV 


RS.(Rl) 


i WRITE BIT 0 


012644 


011104 








MOV 


(R1).R4 


iREAO CONTROL STATUS REGISTER 


012646 


020504 








CMP 


RS.R4 


ilS DATA CORRECT 


012650 


001401 








BEQ 


2$ 


sBR IF YES 


012652 


104002 








EMT 


2 


iDATA ERROR 


012654 


104401 






2$: 


SCOPl 




5SW09 UP? 


012656 


012737 


012664 


001220 




MOV 


*3$,L0CK 


:NEU SCOPl 


012664 


042711 


000001 




3$: 


BIC 


«BIT0,(R1) 


{CLEAR BIT 0 


012670 


OOSOOS 








CLR 


R5 


! CLEAR "EXPECTED" 


012672 


011104 








MOV 


(R1),R4 


:REAO CONTROL STATUS REGISTER 


012674 


001402 








BEQ 


4$ 


:BR IF ZERO 


012676 


104002 








EMT 


2 


tDATA ERROR BITO NOT CLEARED 


012700 


104401 








SCOPl 




sSW09 UP? 


012702 


104400 






4$: 


SCOPE 




1 SCOPE THIS TEST 
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27-9 



TEST 5 *************************** 

s*CONTROL STATUS REGISTER URITE/READ TEST 
;*SET BITl. VERIFY BITl WAS SET 
:*CLEAR BITl, VERIFY BITl WAS CLEARED 

::****************************************************■<******** 

; TEST 5 



012704 


012737 


000005 


001226 


TST5: 


HOV 


♦5.TSTN0 




012712 


012737 


013002 


001216 




MOV 


#TST6.NEXT 




012720 


012737 


012730 


001220 




MOV 


«1).L0CK 




012726 


104412 








MSTCLR 




MASTER CLEAR DMCll 


012750 


013701 


001404 




1»: 


nov 


DMCSR.Rl 


PUT REGISTER ADDRESS IN Rl 


012734 


012705 


000002 






HOV 


#BIT1.R5 


PUT DATA IN "EXPECTED" 


012740 


010511 








MOV 


R5.(R1) 


WRITE BIT 1 


012742 


011104 








MOV 


(R1).R4 


READ CONTROL STATUS REGISTEfl 


012744 


020504 








CM! 


R5.R4 


IS DATA CORRECT 


012746 


001401 








BEQ 


2) 


BR IF YES 


0127S0 


104002 








EMT 


2 


DATA ERROR 


012752 


104401 






21: 


SCOPl 




SM09 UP? 


012754 


012737 


012762 


001220 




MOV 


#3»,L0CK 


NEU SCOPl 


012762 


042711 


000002 




3<: 


BIC 


♦BITl.CRl) 


CLEAR BIT 1 


012766 


005005 








CLR 


R5 


CLEAR "EXPECTED" 


012770 


011104 








MOV 


(R1).R4 


READ CONTROL STATUS REGISTER 


012772 


001402 








BEQ 


4$ 


BR IF ZERO 


012774 


104002 








EMT 


2 


DATA ERROR BITl NOT CLEARED 


012776 


104401 








SCOPl 




SU09 UP? 


013000 


104400 






4<: 


SCOPE 




SCOPE THIS TEST 



:*************************** TEST 6 *************************** 

!*CONTROL STATUS REGISTER URITE/READ TEST 
i*SET BIT2. VERIFY BIT2 WAS SET 
:*CLEAR BIT2. VERIFY BIT2 UAS CLEARED 

; :************************************************************* 



s TEST 6 



013002 


012737 


000006 


001226 


TST6: 


HOV 


«6,TSTN0 




013010 


012737 


013100 


001216 




HOV 


#TST7.NEXT 




013016 


012737 


013026 


001220 




HOV 


m.LOCK 




013024 


104412 








HSTCLR 




{MASTER CLEAR DHCll 


013026 


013701 


001404 




1<: 


HOV 


DMCSR.Rl 


iPUT REGISTER ADDRESS IN Rl 


013032 


012705 


000004 






HOV 


«eiT2.R5 


J PUT DATA IN "EXPECTED" 


013036 


010511 








MOV 


R5.(R1) 


i WRITE BIT 2 


013040 


011104 








MOV 


(R1).R4 


;READ CONTROL STATUS REGISTER 


013042 


020504 








CMP 


R5,R4 


{IS DATA CORRECT 


013044 


001401 








BEQ 




;BR IF YES 


013046 


104002 








EMT 


2 


iDATA ERROR 


013050 


104401 






21: 


SCOPl 




iSU09 UP? 


013052 


012737 


013060 


001220 




MOV 


♦3».L0CK 


iNEU SCOPl 


013060 


042711 


000004 




3): 


BIC 


«eiT2.(Rl} 


; CLEAR BIT 2 


013064 


005005 








CLR 


R5 


{CLEAR "EXPECTED" 


013066 


011104 








MOV 


(R1}.R4 


{READ CONTROL STATUS REGISTER 


013070 


001402 








BEQ 


4$ 


{BR IF ZERO 


013072 


104002 








EMT 


2 


(DATA ERROR BIT2 NOT CLEARED 


013074 


104401 








SCOPl 




;SU09 UP? 
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013076 104400 41: SCOPE :SCOPE THIS TEST 



i*************************** TEST 7 *************************** 

s*CONTROL STATUS REGISTER WRITE/READ TEST 
!*SET BITS. VERIFY BITS UAS SET 
i*CLEAR BITS. VERIFY BITS UAS CLEARED 

• :**********************************************************««* 

; TEST 7 



013100 


012737 


000007 


001226 


TST7: 


MOV 


♦7.TSTN0 




013106 


012737 


013176 


001216 




MOV 


♦TSTIO.NEXT 




013114 


012737 


013124 


001220 




MOV 


«1$.L0CK 




013122 


104412 








MSTCLR 




! MASTER CLEAR DMCll 


013124 


013701 


001404 




It: 


MOV 


DMCSR.Rl 


jPUT REGISTER ADDRESS IN Rl 


013130 


01270S 


000040 






MOV 


WITS.R5 


{PUT DATA IN "EXPECTED" 


013134 


OlOSll 








MOV 


RS.CRl) 


iURITE BIT 5 


013136 


011104 








MOV 


(R1).R4 


iREAD CONTROL STATUS REGISTER 


013140 


020S04 








CMP 


RS.R4 


lis DATA CORRECT 


013142 


001401 








BEQ 


2$ 


iBR IF YES 


013144 


104002 








EMT 


2 


(DATA ERROR 


013146 


104401 






21: 


SCOPl 




JSM09 UP? 


013150 


012737 


013156 


001220 




MOV 


«3$,L0CK 


:NEU SCOPl 


0131S6 


042711 


000040 




3t: 


BIC 


«ITS.(R1) 


(CLEAR BIT 5 


013162 


00500S 








CLR 


R5 


; CLEAR "EXPECTED" 


013164 


011104 








MOV 


(R1).R4 


iREAD CONTROL STATUS REGISTER 


013166 


001402 








BEQ 


4$ 


iBR IF ZERO 


013170 


104002 








EMT 


2 


iOATA ERROR BITS NOT CLEARED 


013172 


104401 








SCOPl 




iSU09 UP? 


013174 


104400 






41: 


SCOPE 




! SCOPE THIS TEST 



i *************************** TEST 10 *************************** 

;*C0NTR0L STATUS REGISTER WRITE/READ TEST 
i*SET BIT6, VERIFY BIT6 UAS SET 
i*CLEAR BIT6. VERIFY BIT6 UAS CLEARED 

;:************************************************************** 



J TEST 10 



013176 


012737 


000010 


001226 


TSTIO: 


MOV 


«10.TSTN0 




013204 


012737 


013274 


001216 




MOV 


♦TSTll.NEXT 




013212 


012737 


013222 


001220 




MOV 


«1$.L0CK 




013220 


104412 








MSTCLR 




J MASTER CLEAR DMCll 


013222 


013701 


001404 




1*: 


MOV 


DMCSR.Rl 


iPUT REGISTER ADDRESS IN Rl 


013226 


01 2705 


000100 






MOV 


46IT6.R5 


tPUT DATA IN -EXPECTED* 


013232 


010511 








MOV 


RS.CRl) 


iURITE BIT 6 


013234 


011104 








MOV 


(R1).R4 


iREAD CONTROL STATUS REGISTER 


013236 


020504 








CMP 


PS.R4 


lis DATA CORRECT 


013240 


001401 








BEQ 


2* 


:BR IF YES 


013242 


104002 








EMT 


2 


iDATA ERROR 


013244 


104401 






2$: 


SCOPl 




}SU09 UP? 


013246 


012737 


013254 


001220 




MOV 


«3$.L0CK 


iNEU SCOPl 


013254 


042711 


000100 




3$: 


BIC 


#BIT6,(R1) 


: CLEAR BIT 6 


013260 


005005 








CLR 


R5 


{CLEAR "EXPECTED" 


013262 


011104 








MOV 


(R1).R4 


iREAD CONTROL STATUS REGISTER 
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013264 001402 

013266 104002 

013270 104401 

013272 104400 



4*: 



BEQ 
EMT 
SCOPl 
SCOPE 



4$ 

2 



BR IF ZERO 

DATA ERROR BIT6 NOT CLEARED 

SM09 UP? 

SCOPE THIS TEST 



*************************** TEST 11 *************************** 

*CONTROL STATUS REGISTER URITE/REAO TEST 
*SET BIT7. VERIFY BIT7 WAS SET 
*CLEAR BIT7. VERIFY BIT7 WAS CLEARED 

: ************************************************************** 

TEST 11 



013274 


012737 


000011 


001226 


TSTll: 


MOV 


♦Il.TSTNO 




013302 


012737 


013372 


001216 




nov 


♦TST12.NEXT 




013310 


012737 


013320 


001220 




MOV 


«1I.L0CK 




013316 


104412 








MSTCLR 


1 MASTER CLEAR OMCll 


013320 


013701 


001404 




1*: 


MOV 


DMCSR.Rl 


PUT REGISTER ADDRESS IN Rl 


013324 


012705 


000200 






MOV 


#BIT7.R5 


PUT DATA IN "EXPECTED" 


013330 


010511 








MOV 


R5.(R1) 


URITE BIT 7 


013332 


011104 








MOV 


(R1).R4 


READ CONTROL STATUS REGISTER 


013334 


020504 








CMP 


R5.R4 


IS DATA CORRECT 


013336 


001401 








BEQ 


2* 


BR IF YES 


013340 


104002 








cMT 


2 


DATA ERROR 


013342 


104401 






2»: 


SCOPl 




SW09 UP? 


013344 


012737 


013352 


001220 




MOV 


«3«,L0CK 


NEW SCOPl 


013352 


042711 


000200 




3*: 


BIC 


#BIT7.(R1) 


CLEAR BIT 7 


013356 


005005 








CLR 


R5 


CLEAR "EXPECTED" 


013360 


011104 








MOV 


(R1).R4 


iREAD CONTROL STATUS REGISTER 


013362 


001402 








BEQ 


4» 


;BR IF ZERO 


013364 


104002 








EMT 


2 


,DATA ERROR BIT7 NOT CLEARED 


013366 


104401 








SCOPl 


iSU09 UP? 


013370 


104400 






4*: 


SCOPE 


i SCOPE THIS TEST 



I*************************** TEST 12 *************************** 

i*CONTROL STATUS REGISTER URITE/READ TEST 
:*S£T BIT9. VERIFY BIT9 WAS SET 
i*CLEAR BIT9. VERIFY BIT9 WAS CLEARED 













! TEST 


12 




013372 


012737 


000012 


001226 


TST12: 


MOV 


♦12.TSTN0 




013400 


012737 


013470 


001216 




NOV 


♦TST13.NEXT 




013406 


012737 


013416 


001220 




MOV 


MI.LOCK 




013414 


104412 








MSTCLR 




(MASTER CLEAR DMCll 


013416 


013701 


001404 




1»: 


MOV 


DMCSR.Rl 


iPUT REGISTER ADDRESS IN Rl 


013422 


012705 


001000 






MOV 


•eiT9.R5 


iPUT DATA IN "EXPECTED - 


013426 


010511 








MOV 


R5.(R1) 


i URITE BIT 9 


013430 


011104 








MOV 


(R1).R4 


iREAD CONTROL STATUS REGISTER 


013432 


020504 








CMP 


R5.R4 


lis DATA CORRECT 


013434 


001401 








BEQ 


2* 


sBR IF YES 


013436 


104002 








EMT 


2 


(DATA ERROR 


013440 


104401 






2«: 


SCOPl 




iSU09 UP? 


013442 


012737 


013450 


001220 




MOV 


*3I.L0CK 


iNEU SCOPl 
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013450 


042711 001000 


3«: 


BIC 


«eiT9,(Rl) 


: CLEAR BIT 9 




013454 


005005 




CLR 


R5 


; CLEAR "EXPECTED" 




013456 


011104 




nov 


(R1).R4 


:RtAO CONTROL STATUS 


REGISTER 


013460 


001402 




BEQ 


4* 


:BR IF ZERO 




013462 


104002 




EMT 


2 


:OATA ERROR BIT9 NOT 


CLEARED 


013464 


104401 




SCOPl 




:SU09 UP? 




013466 


104400 


4$: 


SCOPE 




! SCOPE THIS TEST 





TEST 13 **** 

t*CONTROL STATUS REGISTER WRITE/READ TEST 
!*SET BITll. VERIFY BITll WAS SET 
i*aEAR BITll, VERIFY BITll UAS CLEARED 













t TEST 


13 




013470 


012737 


000013 


001226 


TST13: 


HOV 


#13,TSTN0 




013476 


012737 


013566 


001216 




nov 


♦TST14.NEXT 




013504 


012737 


013514 


001220 




MOV 


«1*.L0CK 




013512 


104412 








MSTCLR 




: MASTER CLEAR DMCll 


013514 


013701 


001404 




1*: 


MOV 


OMCSR.Rl 


iPUT REGISTER ADDRESS IN Rl 


013520 


012705 


004000 






HOV 


#BIT11.R5 


J PUT DATA IN "EXPECTED" 


013524 


010511 








MOV 


R5.(R1) 


iURITE BIT 11 


013526 


011104 








MOV 


(R1}.R4 


;READ CONTROL STATUS REGISTER 


013530 


020504 








CMP 


R5,R4 


lis DATA CORRECT 


013532 


001401 








BEO 


21 


:BR IF YES 


013534 


104002 








EMT 


2 


iOATA ERROR 


013536 


104401 






2»: 


SCOPl 




:SU09 UP? 


013540 


012737 


013546 


001220 




MOV 


♦3I.L0CK 


tNEU SCOPl 


013546 


042711 


004000 




31: 


BIC 


«BIT11.(R1} 


i CLEAR BIT 11 


013SS2 


005005 








CLR 


R5 


1 CLEAR -EXPECTED" 


013554 


011104 








MOV 


(R1).R4 


iREAO CONTROL STATUS REGISTER 


013556 


001402 








BEQ 


41 


iBR IF ZERO 


013560 


104002 








EMT 


2 


iOATA ERROR BITll NOT CLEARED 


013562 


104401 








SCOPl 




iSU09 UP? 


013564 


104400 






4$: 


SCOPE 




1 SCOPE THIS TEST 



,*••*****•*•***•****«•••**** TEST 14 *•** 
;*C0NTR0L STATUS REGISTER URITE/REAO TEST 
i*SET BIT12. VERIFY BIT12 UAS SET 
:*CLEAR BIT12, VERIFY BIT12 UAS CLEARED 

I TEST 14 

I 



013566 


012737 


000014 


001226 


TST14: 


HOV 


♦W.TSTNO 




013574 


012737 


013664 


001216 




HOV 


#TST15.NEXT 




01 3602 


012737 


013612 


001220 




HOV 


♦ll.LOCK 




013610 


104412 








MSTCLR 




1 MASTER aEAR OHCll 


013612 


013701 


001404 




It: 


HOV 


OMCSR.Rl 


(PUT REGISTER ADDRESS IN Rl 


013616 


012705 


010000 






HOV 


•BIT12.R5 


iPUT DATA IN -EXPECTED - 


013622 


010511 








HOV 


RS.(Rl) 


tURITE BIT 12 


013624 


011104 








HOV 


(R1).R4 


(READ CONTROL STATUS REGISTER 


013626 


020504 








CMP 


R5.R4 


ilS DATA CORRECT 


013630 


001401 








BEQ 


2$ 


iBR IF YES 
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013632 104002 
013634 104401 



2t. 



15 



013636 012737 013644 001220 

013644 042711 010000 31: 

013650 005005 

013652 011104 

013654 001402 

013656 104002 

013660 104401 

013662 104400 4$ : 



EM7 
SCOPl 

nov 

BIC 

CLR 

NOV 

BEQ 

EMT 

SCOPl 

SCOPE 



«3>.L0CK 

«BIT12.(R1) 

R5 

(R1).R4 
4« 

2 



DATA ERROR 

SU09 UP? 

NEW SCOPl 

CLEAR BIT 12 

CLEAR "EXPECTED " 

READ CONTROL STATUS REGISTER 

BR IP ZERO 

DATA ERROR BIT12 NOT CLEARED 
SM09 UP? 
J SCOPE THIS TEST 



TEST 15 ** 

t*C0NTR0L OUT REGISTER URITE/READ TEST 
»*SET BITO. VERIFY BITO UAS SET 
i*CLEAR BITO, VERIFY BITO UAS CLEARED 













1 TEST 


15 




013664 


012737 


000015 


001226 


TST15: 


nov 


♦15.TSTN0 




013672 


012737 


013762 


001216 




MuV 


♦TST16.NEXT 




013700 


012737 


013710 


001220 




nov 


•11. LOCK 




013706 


104412 








nSTCLR 




inASTER CLEAR DMCll 


013710 


013701 


001410 




11: 


nov 


DnCTL.Rl 


iPUT REGISTER ADDRESS IN Rl 


013714 


012705 


000001 






nov 


«BIT0.R5 


iPUT DATA IN -EXPECTED- 


013720 


010511 








nov 


R5.(R1) 


i WRITE BIT 0 


013722 


011104 








nov 


(R1).R4 


iREAD CONTROL OUT REGISTER 


013724 


020504 








CMP 


R5.R4 


lis DATA CORRECT 


013726 


001401 








BEQ 


21 


iBR IF YES 


013730 


104002 








EnT 


2 


iDATA ERROR 


013732 


104401 






2«: 


SCOPl 




lSU09 UP? 


013734 


012737 


013742 


001220 




nov 


*3«.L0CK 


iNEU SCOPl 


013742 


042711 


000001 




St: 


BIC 


«BIT0.(R1) 


1 CLEAR BIT 0 


013746 


005005 








CLR 


RS 


1 CLEAR 'EXPECTED - 


013750 


011104 








nov 


(R1).R4 


iREAD CONTROL OUT REGISTER 


013752 


001402 








BEQ 


4t 


iBR IF ZERO 


013754 


104002 








EHT 


2 


iDATA ERROR BITO NOT CLEARED 


013756 


104401 








SCOPl 




lSU09 UP? 


013760 


104400 






41: 


SCOPE 




{SCOPE THIS TEST 



013762 012737 000016 001226 TST16: 
013770 012737 014060 001216 
013776 012737 014006 001220 



014004 104412 

014006 013701 001410 

014012 012705 000002 

014016 010511 



1»: 



,*************************** TEST 16 *4 
i*CONTROL OUT REGISTER URITE/READ TEST 
i*SET BITl. VERIFY BITl UAS SET 
i*aEAR BITl. VERIFY BITl UAS aEARED 



I : •••••••• 

I TEST 16 

I 

nov 

NOV 

nov 

nSTCLR 

nov 
nov 
nov 



•16.TSTN0 
#TST17.NEXT 
•It.LOCK 

OnCTL.Rl 
«eiTl,RS 
RS.(Rl) 



iNASTER CLEAR OnCll 
iPUT REGISTER ADDRESS IN Rl 
I PUT DATA IN 'EXPECTED' 
tURITE BIT 1 



C20f1C lACRO V04.00 27-JUN-85 13:16:37 PACE 27 14 
OHCll UNIBUS REGISTER TESTS 



014020 


011104 








MA%f 

nQv 


^ n 4 ^ Bit 
(R1},k4 


;RE.AO LONTHQL OUT KculdTcR 


014022 


020504 








CnP 


BC B^ 


;Ib DATA CORRcUT 


014024 


001401 








BP A 

BEQ 


21 


;BR Jr YtS 


014026 


104002 








EnT 


2 


;UA1A cRKUR 


014030 


104401 






2<: 


SCOPl 




f l_lAA 1 ID 4 


014032 


012737 


014040 


001220 




MOV 


v3*.L0CK 


{NEW SCOPl 


014040 


042711 


000002 




3> : 


BZC 


JIATT 4 ^ O 4 ^ 

•oil 1 , IRl J 


;l.LbAN oil 1 


014044 


005005 








CLR 


R5 


J CLEAR "EXPECTED" 


014046 


011104 








nov 


r o t ^ DA 




014050 


001402 








BEQ 


4t 


:BR IF ZERO 


014052 


104002 








EMT 


2 


tDATA ERROR BITl NOT CLEARED 


014054 


104401 








SCOPl 




:SW09 UP? 


014056 


104400 






41 : 


SCOPE 




s SCOPE THIS TEST 
























:*CONTROL OUT REGISTER 


URITE/REAO TEST 












s*SET BIT2. VERIFY BIT2 


UAS SET 












;*CLEAR BIT2, VERIFY BIT2 UAS CLEARED 












s TEST 


17 




014060 


012737 


AAAA4 ^ 

000017 


AA4 

0012cO 


TCT 1 7 . 

151 1 li 


nov 


♦17.TSTN0 




014066 


A* 

012737 


A 4 il 4 

01415O 


AA 191^ 

OOlelO 




NOV 


«TST20,NEXT 




014074 


012737 


A4 A 4 AJI 

014104 


AA 4 9 

001220 




nov 


*1*.L0CK 




014102 


104412 








nSTCLR 




{MASTER CLEAR OnCll 


014104 


n4 TTA4 

013701 






1 t • 


nov 


OnCTL.Rl 


:PUT REGISTER ADDRESS IN Rl 


014110 


A4 9^AC 


AAAAAA 

U0U004 






nov 


4BIT2.R5 


sPUT DATA IN -EXPECTED" 


014114 


A 4 AC 1 1 

01U311 








nov 


R5.(R1) 


iURITE BIT 2 


A 4 il 4 4 £ 

014116 


A4 4 4 Ail 

OHIO* 








nov 


(Rl).R4 


;READ CONTROL OUT REGISTER 


014120 


AO AC Ail 

020504 








cnp 


R5.R4 


lis DATA CORRECT 


014122 


AA 4 A A4 

001401 








BEQ 


2) 


:BR IF YES 


014124 


4 A4 

104002 








EnT 


2 


:DATA ERROR 


Aid* 1£ 

014126 


4 AAil A4 

104401 






c» ; 


SCOPl 




jSU09 UP? 


A « Jl 4 TA 

014130 


A4 ^7TT 

012737 


A1 A 1 

U14130 


AA 1 OOA 




MOV 


«3).L0CK 


iNEU SCOPl 


A4 ii 4 V£ 

014130 


A^ 9*7 4 4 

042/11 


AAAAAA 




Tt • 

o* : 


6IC 


«eiT2.(Rl) 


! CLEAR BIT 2 


014142 


005005 








CLR 


R5 


J CLEAR -EXPECTED" 


014144 










MOV 


{R1).R4 


iREAD CONTROL OUT REGISTER 


014146 


001402 








BEQ 


4* 


:6R IF ZERO 


014150 


104002 








EMT 


2 


sDATA ERROR BIT2 NOT CLEARED 


014152 


104401 








SCOPl 




sSU09 UP? 


014154 


• A4 A A A 

104400 






4» : 


SCOPE 




.•SCOPE THIS TEST 












TEST 20 *************** 












:*CONTR0L OUT REGISTER 


URITE/READ TEST 












:*SET BIT6. VERIFY BIT6 


UAS SET 












;*CLEAR 


BIT6. VERIFY BIT6 UAS CLEARED 












5 TEST 


20 




014156 


012737 


000020 


001226 


TST20: 


MOV 


♦2O.TSTN0 




014164 


012737 


014254 


001216 




MOV 


«rST21,NEXT 




014172 


012737 


014202 


001220 




MOV 


♦1».L0CK 




014200 


104412 








MSTCLR 




:nASTER CLEAR OnCll 



C20HC 1*CR0 V04.00 27-JUN 85 13:16:37 PACE 27 15 
OHCll UNIBUS REGISTER TESTS 







Wl^iv 


1 t • 




DMrTI PI 


PUT RpnTQTFR AnnQPCQ tm oi 




VAC > 


WV A vv 




MOV 




PUT DATA TM "FypprTPH" 


Ot API? 


01 O^l 1 

V A Vj L k 






MOV 


RS CRl ') 


URTTF RTT f> 
Hnx 1 c px I u 


At API A 








HQV 




RFAD CnNTROI DUT RFRTCTrR 


A 1 AP 1 1« 


Vfc V JV"t 






CMP 


RS R4 


T^ DATA '*nPRFn 




W A^Vl 








?t 
C * 


RR TF yF<; 

W> X' 1 t J 




AV^VVC 






EMT 




DATA FRRDR 


Ot APPA 


XV^^wA 










^U09 UP? 












4St LOCK 


NFU SCOPl 


OlAPlA 










MTT6 (Rl) 


CLEAR RTT 6 


014240 


005005 






CLR 


R5 


CLEAR "EXPECTED' 


014242 


011104 






HOV 


(R1).R4 


READ CONTROL OUT REGISTER 


014244 


001402 






BEQ 


4t 


BR IF ZERO 


014246 


1040C2 






EH" 


2 


DATA ERROR BITS NOT CLEARED 


014250 


104401 






SCOPl 




,SU09 UP? 


014252 


104400 




41: 


SCOPE 




J SCOPE THIS TEST 



TEST 21 * 

; ♦CONTROL OUT REGISTER WRITE/READ TEST 
;*SET BIT7. VERIFY BIT7 WAS SET 
s*CLEAR BIT7, VERIFY BIT7 UAS CLEARED 



! TEST 21 



014254 


012737 


000021 


001226 


TST21: 


HOV 


♦21.TSTN0 




014262 


012737 


014352 


001216 




MOV 


♦TST22.NEXT 




014270 


012737 


014300 


001220 




nov 


«lt.LOCK 




014276 


104412 








HSTCLR 


:nASTER CLEAR OnCll 


014300 


013701 


001410 




1«: 


nov 


OnCTL.Rl ;PUT REGISTER ADDRESS IN Rl 


014304 


012705 


000200 






nov 


♦BIT7.R5 sPUT DATA IN "EXPECTED" 


014310 


010511 








nov 


R5.(R1) 


URITE BIT 7 


014312 


011104 








nov 


(R1).R4 


READ CONTROL OUT REGISTER 


014S14 


020504 








cnp 


R5.R4 


IS DATA CORRECT 


014316 


001401 








BEQ 


2* 


iBR IF YES 


014320 


104002 








EMT 


2 


DATA ERROR 


014322 


104401 






21: 


SCOPl 




SU09 UP? 


014324 


012737 


014332 


001220 




nov 


♦3»,L0CK 


NEW SCOPl 


014332 


042711 


000200 




3»: 


BIC 


•8IT7.(R1) 


CLEAR BIT 7 


014336 


005005 








CLR 


R5 


CLEAR "EXPECTED" 


014340 


011104 








nov 


(R1).R4 sREAD CONTROL OUT RFCISTER 


014342 


001402 








BEQ 


4* 


BR IF ZERO 


014344 


104002 








EnT 


2 


DATA ERROR BIT7 NOT CLEARED 


014346 


104401 








SCOPl 




SU09 UP? 


014350 


104400 






4$: 


SCOPE 


J SCOPE THIS TEST 



;*************«************* TEST 22 *************************** 

:*CONTROL OUT REGISTER WRITE /READ TEST 
j*SET BIT12. VERIFY BIT12 MAS SET 
:*CLEAR BIT12. VERIFY BIT12 UAS CLEARED 

; : ******* A****** A* AAA* ****** *«*AA*AAA**A***AA***«***** AAA*** A*** 

{ TEST 22 



014352 012737 000022 001226 TST22: 



nov «22.TSTN0 
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SEQ 55 



014360 


012737 


014450 


001216 




«0V 


♦TST23.NEXT 




014366 


012737 


014376 


001220 




nov 


«1I.L0CK 




014374 


104412 








MSTCLR 




MASTER CLEAR DMCll 


014376 


013701 


001410 




1*: 


HOV 


OMCTL.Rl 


PUT REGISTER ADDRESS IN Rl 


014402 


012705 


010000 






HOV 


•6IT12.R5 


PUT DATA IN "EXPECTED" 


014406 


010511 








MOV 


R5.(R1) 


WRITE BIT 12 


014410 


011104 








HOV 


(R1).R4 


READ CONTROL OUT REGISTER 


014412 


020504 








CMP 


R5.R4 


IS DATA CORRECT 


014414 


001401 








BEQ 


2t 


BR IF YES 


014416 


104002 








EMT 


2 


DATA ERROR 


014420 


104401 






29: 


SCOPl 




SU09 UP? 


014422 


012737 


014430 


001220 




MOV 


431. LOCK 


NEW SCOPl 


014430 


042711 


010000 




3$: 


BIC 


#BIT12.(R1) 


CLEAR BIT 12 


014434 


005005 








CLR 


RS 


CLEAR "EXPECTED" 


014436 


011104 








MOV 


(R1).R4 


READ CONTROL OUT REGISTER 


014440 


001402 








BEQ 


4) 


BR IF ZERO 


014442 


104002 








EMT 


2 


DATA ERROR BIT12 NOT CLEARED 


014444 


104401 








SCOPl 




SU09 UP? 


014446 


104400 






4*: 


SCOPE 




SCOPE THIS TEST 



**************************** TEST 23 *************•**•••***••*•* 

j*CONTROL OUT REGISTER WRITE/READ TEST 
!*SET BIT13. VERIFY BIT13 UAS SET 
{•CLEAR BIT13. VERIFY BIT13 UAS CLEARED 



: TEST 23 



014450 


012737 


000023 


001226 


TST23: 


MOV 


•23.TSTN0 




014456 


012737 


014546 


001216 




MOV 


♦TST24.NEXT 




014464 


012737 


014474 


001220 




MOV 


*1«.L0CK 




014472 


104412 








MSTCLR 




;MASTER CLEAR OMCll 


014474 


013701 


001410 




1«: 


MOV 


OMCTL.Rl 


sPUT REGISTER ADDRESS IN Rl 


014500 


012705 


020000 






MOV 


«eiT13,RS 


sPUT DATA IN "EXPECTED- 


014504 


010511 








MOV 


R5.(R1) 


:URITE BIT 13 


014506 


011104 








MOV 


CR1).R4 


:READ CONTROL OUT REGISTER 


014510 


020504 








CMP 


R5.R4 


ilS DATA CORRECT 


014512 


001401 








BEQ 


29 


:BR IF YES 


014514 


104002 








EMT 


2 


iOATA ERROR 


014516 


104401 






2t: 


SCOPl 




tSU09 UP? 


014520 


012737 


014526 


001220 




MOV 


«3$,L0CK 


iNEU SCOPl 


014526 


042711 


020000 




3$: 


BIC 


OBITIS.CRI) 


: CLEAR BIT 13 


014532 


005005 








CLR 


R5 


•.CLEAR "EXPECTED" 


C14534 


011104 








MOV 


(R1),R4 


;READ CONTROL OUT REGISTER 


014536 


001402 








BEQ 


4> 


sBR IF ZERO 


014540 


104002 








EMT 


2 


:OATA ERROR BIT13 NOT CLEARED 


014542 


104401 








SCOPl 




;SU09 UP? 


014544 


104400 






4$: 


SCOPE 




(SCOPE THIS TEST 
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**************************** JEST 24 *************************** 

:*P0RT4 REGISTER WRITE/READ TEST 
;*FLOAT A ONE THROUGH P0RT4 REGISTER 
!*FLOAT A ZERO THROUGH P0RT4 REGISTER 

; :************************************************************** 



C20MC MACRO V04.00 27.JUN-85 13:16:37 PAGE 27-17 
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SEQ S6 



TEST 24 



17 



014546 


012737 


000024 


001226 


TST24: 


MOV 


♦24.TSTN0 




014554 


012737 


014672 


001216 




MOV 


♦TST25.NEXT 




014562 


012737 


014602 


001220 




MOV 


#64$. LOCK 




014570 


104412 








MSTCLR 


;MASTER CLEAR DMCll 


014572 


013701 


001412 






MOV 


0MP04.R1 


:PUT REGISTER ADDRESS ] 


014576 


012700 


000001 






MOV 


«1.R0 : START WITH BITO 


014602 








641: 








014602 


010005 








MOV 


R0.R5 


PUT "EXPECTED" IN R5 


014604 


010511 








MOV 


RS.CRl) 


WRITE P0RT4 REGISTER 


014606 


011104 








MOV 


(R1).R4 


READ P0RT4 REGISTER 


014610 


020504 








CMP 


R5.R4 


COMPARE EXPECTED AND FOUND 


014612 


001401 








BEQ 


65 » 


BR IF OK 


014614 


104002 








EMT 


2 


URITE/READ ERROR 


014616 


104401 






65$: 


SCOPl 




LOOP TO 64$ IF SU09-1 


014620 


000241 








CLC 




CLEAR CARRY 


014622 


006100 








ROL 


RO 


SHIFT TO NEXT BIT 


014624 


001366 








BNE 


64$ 


BR IF NOT DONE YET? 


014626 


012737 


014640 


001220 




MOV 


«66$.L0CK 


NEW SCOPl 


014634 


012700 


000001 






MOV 


«1.R0 


START WITH BITO 


014640 








66$: 








014640 


005100 








COM 


RO 


CHANGE TO A FLOATING ZERO 


014642 


010005 








MOV 


R0.R5 


PUT "EXPECTED" IN R5 


014644 


010511 








MOV 


R5.(R1) 


WRITE P0RT4 REGISTER 


014646 


011104 








MOV 


(R1).R4 


READ P0RT4 REGISTER 


014650 


020504 








CMP 


R5,R4 


COMPARE EXPECTED AND FOUND 


C14652 


001401 








BEQ 


67$ 


BR IF OK 


014654 


104002 








EMT 


2 


WRITE /READ ERROR 


014656 


104401 






67$: 


SCOPl 




LOOP TO 66$ IF SW09=1 


014660 


005100 








COM 


RO 


CHANGE BACK TO A FLOATING ONE 


014662 


000241 








CLC 




.CLEAR CARRY 


014664 


006100 








ROL 


RO 


SHIFT TO NEXT BIT 


014666 


001364 








BNE 


66$ 


BR IF NOT DONE YET? 


014670 


104400 








SCOPE 


J SCOPE THIS TEST 



TEST 25 *************************** 

i*P0RT6 REGISTER URITE/READ TEST 
;*FL0AT A ONE THROUGH P0RT6 REGISTER 
;*FLOAT A ZERO THROUGH P0RT6 REGISTER 

• : ************************************************************** 













; TEST 


25 




014672 


012737 


000025 


001226 


TST25: 


MOV 


•25,TSTN0 




014700 


012737 


015016 


001216 




MOV 


♦TST26.NEXT 




014706 


012737 


014726 


001220 




MOV 


«64$.L0CK 




014714 


104412 








MSTCLR 




.•MASTER CLEAR OMCll 


014716 


013701 


001414 






MOV 


DMP06,R1 


;PUT REGISTER 


014722 


012700 


000001 






MOV 


•l.RO 


s START WITH BITO 


014726 








64$: 








014726 


010005 








MOV 


R0.R5 


iPUT "EXPECTED" IN R5 


014730 


010511 








MOV 


RS.CRl) 


: WRITE P0RT6 REGISTER 


014732 


011104 








MOV 


CR1).R4 


;REAO P0RT6 REGISTER 


014734 


020504 








CMP 


R5.R4 


{COMPARE EXPECTED AND 


014736 


001401 








BEQ 


65$ 


iBR IF OK 
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1 A AAA 3 






PMT 


o 
c 












<;rnpi 




1 nnP TO AAi TP QUAQal 


A1 A1AA 








ri r 




n PAR TARRV 


f\\ ATA^ 


AAiLI AA 








PA 


QHTPT Tn NPyT RTT 




AA1 T£J« 






DUE. 


AA % 
o«» ? 


RR TP NOT nONP YPT7 


At 


A1 97X7 
vie ' A r 






HDV 


AAA! 1 ViV\L 


MPu ^rnpi 


At A7fcA 








MDU 
nu V 




^TART UTTH RTTft 
o 1 nn 1 VIA 1 n ■ v 


A1 














A1 


AAC1 AA 










rHANHP Tn A PI HATTMrt 7PRn 


A1 A7<>& 












PUT "pypprTPH" TN RS 


A1 A77A 


A 1 AC 1 1 






nu V 


RR f RI 


URTTP PORTA RPf^T^^TPR 




A1 1 1 AA 
villus 






HDV 
riu V 


fRI") RA 


RPAD PORTA RPHT^TPR 


nt A77A 


A5ASAd 






CMP 


RS RA 


■COMPARE pyPECTEO AND FOUND 
< vr Pint It. Ar 1 1 V ni^v r u wni/ 




AA1 AA1 








V 1 T 


go TF OK 


A1 CA/V) 












URITF/READ ERROR 


015002 


104401 




67): 


SCOPl 




LOOP TO 66» IF SW09-1 


015004 


005100 






COM 


RO 


(CHANGE BACK TO A FLOATING ONE 


015006 


000241 






CLC 




[CLEAR CARRY 


015010 


006100 






ROL 


RO 


(SHIFT TO NEXT BIT 


015012 


001364 






BNE 


661 


iBR IF NOT DONE YET? 


015014 


104400 






SCOPE 




(SCOPE THIS TEST 
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TEST 26 *************************** 

s*UNIBUS REGISTER BYTE DUAL ADDRESSING TEST 

:*LOAD ALL REGISTERS WITH INCREMENTING PATTERN 

i*READ BACK ALL REGISTERS TO VERIFY CORRECT ADDRESSING 

;:************************************************************** 



; TEST 26 



015016 


012737 


000026 


001226 


TST26: 


nov 


«26.TSTN0 






015024 


012737 


015146 


001216 




nov 


#TST27.NEXT 






015032 


012737 


015046 


001220 




HOV 


m.LOCK 


Rl CONTAINS BASE DMCll 


ADDRESS 


015040 


104412 








MSTCLR 




MASTER CLEAR DMCll 




015042 


012700 


000001 






MOV 


•l.RO 


START PATTERN AT 1 




015046 


105011 






1»: 


CLRB 


(Rl) 


CLEAR REGISTER 




015050 


110005 








HOVB 


R0.R5 


PUT DATA IN -EXPECTED" 




015052 


110011 








MOVB 


RO.CRl) 


WRITE DMC REGISTER WITH PATTERN 


015054 


111104 








MOVB 


(R1).R4 


READ DMC REGISTER INTO 


-FOUND •■ 


015056 


020504 








CMP 


K5.R4 


IS DATA CORRECT 




015060 


001401 








BEQ 


2> 


BR IF YES 




015062 


104002 








EMT 


2 


DATA ERROR 




015064 


104401 






2*: 


SCOPl 


]SU09'>1? 




015066 


105721 








TSTB 


CRD* 


NEXT REGISTER 




015070 


005200 








INC 


RO 


INCREMENT DATA PATTERN 




015072 


022700 


000011 






CMP 


♦11. RO 


LAST REGISTER? 




015076 


001363 








BNE 


1$ 


BR IF NO 




015100 


013701 


001404 






MOV 


DMCSR.Rl 


BASE DMCll ADDRESS TO 


Rl 


015104 


012700 


000001 






MOV 


«1.R0 


RESTART PATTERN AT 1 




015110 


012737 


015116 


001220 




MOV 


♦3»,L0CK 


,NEW SCOPl 




015116 


110005 






3»: 


MOVB 


R0,R5 


PUT DATA IN "EXPECTED" 




015120 


111104 








MOVB 


CR1).R4 


READ DMC REGISTER INTO 


"FOUND" 


015122 


020504 








CMP 


R5,R4 


IS DATA CORRECT 




015124 


001401 








BEQ 


4$ 


(BR IF YES 




015126 


104002 








EMT 


2 


(DUAL ADDRESSING ERROR 





CZOUC MACRO *04.00 27-JUN-85 13:16:37 PAGE 27-19 
DHCll UNIBUS REGISTER TESTS 



19 



015130 104401 

015132 105721 

015134 005200 

015136 022700 000011 

015142 001365 

015144 104400 



4»: 



SCOPl 

TSTB 

INC 

CMP 

BNE 

SCOPE 



CRD* 
RO 

♦11, RO 
3) 



SH09-1? 

NEXT REGISTER 

INCREMENT PATTERN 

LAST REGISTER? 

BR IF NO 

SCOPE THIS TEST 



*************************** TEST 27 *************************** 

♦MAINTENANCE INSTRUCTION REGISTER TEST 

*VERIFY THAT THE MAINT IR CAN BE WRITTEN TO ALL ZEROS' 

*AND ALL ONES' . VERIFY THAT IT IS CLEARED ON A BUS RESET. 

:************************************************************** 

TEST 27 



015146 


012737 


000027 


001226 


TST27: 


MOV 


♦27.TSTN0 




015154 


012737 


015306 


001216 




MOV 


♦TST30,NEXT 




015162 


012737 


015200 


001220 




MOV 


«1$.L0CK 


:R1 CONTAINS BASE OMCll ADDRESS 


015170 


104412 








MSTCLR 




;MASTER CLEAR DMCll 


015172 


012711 


003000 






MOV 


«BIT9!BIT10.(R1} 


;SEL6 IS NOW THE IR 


015176 


005005 








CLR 


R5 


:PUT "EXPECTED" IN R5 


015200 


010561 


000006 




1<: 


MOV 


R5.6(R1) 


iCLEAR THE IR 


015204 


016104 


000006 






MOV 


6(R1).R4 


sREAD THE IR 


015210 


020504 








CMP 


RS.R4 


;IS IT CLEARED? 


015212 


001401 








BEQ 


2) 


;BR IF YES 


015214 


104023 








EMT 


23 


i ERROR IR IS NOT CLEAR 


/15216 


104401 






2*: 


SCOPl 




5 LOOP TO 1$ IF SW09-1 


015220 


012737 


015232 


001220 




MOV 


«3$,L0CK 


:NEM SCOPl 


015226 


012705 


177777 






MOV 


♦-1,R5 


;PU': "EXPECTED" IN R5 


015232 


010561 


000006 




3»: 


MOV 


R5,6(R1) 


iWilTE ALL ONES TO THE IR 


015236 


016104 


000006 






NOV 


6(R1}.R4 


sREAD THE IR 


015242 


020S04 








CMP 


RS.R4 


:I3 IT ALL ONES? 


015244 


001401 








BEQ 


4» 


jBR IF YES 


015246 


104023 








EMT 


23 


•.ERROR IR IS NOT - ALL ONES 


015250 


104401 






4<: 


SCOPl 




{LOOP TO 3< IF SU09-1 


015252 


012737 


015262 


001220 




MOV 


«5>.L0CK 


iNEU SCOPl 


015260 


005005 








CLR 


R5 


sPUT "EXPECTED" IN R5 


015262 


OOOOOS 






5*: 


RESET 




iBUS RESET 


015264 


012711 


003000 






MOV 


«IT9!BIT10.(R1) 


sSEL6 IS IR 


015270 


016104 


000006 






MOV 


6(R1}.R4 


iREAO THE IR 


015274 


020504 








CMP 


RS.R4 


:IS IT CLEARED? 


015276 


001401 








BEQ 


6$ 


iBR IF YES 


015300 


104023 








EMT 


23 


: ERROR. IR IS NOT CLEARED 


015302 


104401 






6t: 


SCOPl 




sLOOP TO 5t IF SU09-1 


015304 


104400 








SCOPE 




» SCOPE THIS TEST 
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;*************************** TEST 30 *************************** 

i*MAINTENANCE INSTRUCTION REGISTER TEST 

:*VERIFY THAT THE MAINT IR CAN BE WRITTEN TO ALL ZEROS' 

!*AND ALL ONES'. VERIFY THAT IT IS CLEARED ON A MASTER RESET. 

: :************************************************************** 



TEST 30 
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SEQ 59 



015306 


012737 


000030 


001226 


TST30: 


nov 


*30.TSTN0 






015314 


012737 


015450 


001216 




NOV 


♦T ST 31. NEXT 






015322 


012737 


015340 


001220 




NOV 


«1*.L0CK 


















iRl CONTAINS BASE OMCll 


ADDRESS 


015330 


104412 








MSTCLR 


: MASTER CLEAR DMCll 




015332 


012711 


003000 






nov 


0BIT9!BIT10.(R1) 


:SEL6 IS NOU THE IR 




015336 


005005 








CLR 


R5 


PUT "EXPECTED" IN R5 




015340 


010561 


000006 




1*: 


HOV 


R5.6(R1) 


CLEAR THE IR 




015344 


016104 


000006 






MOV 


6(R1).R4 


READ THE IR 




015350 


020504 








CMP 


R5.R4 


IS IT CLEARED? 




015352 


001401 








BEQ 


2i 


BR IF YES 




015354 


104023 








EMT 


23 


ERROR IR IS NOT CLEAR 




015356 


104401 






21: 


SCOPl 




LOOP TO It IF SW09-1 




015360 


012737 


015372 


001220 




MOV 


«3»,L0CK 


NEW SCOPl 




015366 


012705 


177777 






MOV 


#-l,R5 


PUT "EXPECTED" IN R5 




015372 


010561 


000006 




3»: 


MOV 


R5,6(R1} 


WRITE ALL ONES TO THE 


IR 


015376 


016104 


000006 






MOV 


6(R1).R4 


READ THE IR 




01S402 


020504 








CMP 


R5.R4 


ilS IT ALL ONES? 




015404 


001401 








BEQ 


4$ 


BR IF YES 




015406 


104023 








EMT 


23 


ERROR IR IS NOT • ALL 


ONES 


015410 


104401 






4$: 


SCOPl 




LOOP TO 3» IF SW09=1 




015412 


012737 


015422 


001220 




MOV 


«5$.L0CK 


NEW SCOPl 




015420 


005005 








CLR 


R5 


PUT "EXPECTED" IN R5 




015422 


052711 


040000 




5$: 


BIS 


#6IT14,(R1) 


iMASTER CLEAR 




015426 


012711 


003000 






MOV 


#6IT9!BIT10.(R1) 


:SEL6 IS IR 




015432 


016104 


000006 






MOV 


6(R1).R4 


;READ THE IR 




015436 


02C504 








CMP 


R5,R4 


,IS IT CLEARED? 




015440 


001401 








BEQ 


6» 


,flR IF YES 




015442 


104023 








EMT 


23 


iERROR. IR IS NOT CLEARED 


015444 


104401 






6$: 


SCOPl 




[LOOP TO 5 » IF SW09»1 




015446 


104400 








SCOPE 




! SCOPE THIS TEST 
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I*************************** TEST 31 *************************** 

;*MICRO PROCESSOR TEST 

i*LOAD DMP06 UITH A MICRO-PROCESSOR INSTRUCTION, CLOCK IT 
;* VERIFY INSTRUCTION EXECUTED PROPERLY 

s*INSTRUCTION SHOULD MOVE IBUS*4 TO IBUS*5. IBUS*4 IS ALL 1' S 
i*AND IBUS*5 IS ALL O'S. RESULT SHOULD BE ALL I'S IN SEL4 

; :************************************************************** 











» TEST 


31 


015450 


012737 


000031 


001226 TST31: 


nov 


♦Sl.TSTNG 


015456 


012737 


015534 


001216 


MOV 


«TST32.NEXT 


015464 


104412 






MSTCLR 




015466 


012761 


000377 


000004 


MOV 


♦377.4(R1) 


015474 


012711 


001000 




nov 


•6IT9,(R1) 


015500 


012761 


121105 


000006 


nov 


«121105.6(R1} 


015506 


052711 


001400 




BIS 


«BIT8!BIT9.CR1) 


015512 


000240 






NOP 




015514 


012705 


177777 




MOV 


♦-1.R5 


015520 


016104 


000004 




MOV 


4(R1).R4 


015524 


020504 






CMP 


R5.R4 


015526 


001401 






BEQ 


1$ 


015530 


104003 






EMT 


3 



(Rl CONTAINS BASE OMCll ADDRESS 
sMASTER CLEAR OMCll 
jP0RT4 HI-BYTE -O'S LO-BYTE-l'S 
tSET ROni 

(INSTRUCTION TO P0RT6 

iCLK INTSRUCTION. MOVE IBUS*4 TO IBUS*5 

IpUT "EXPECTED" IN R5 
sPUT "FOUND" INTO R4 
ilS DATA CORRECT 
:BR IF YES 
iERROR 
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SEQ 60 
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015532 104400 



II: 



SCOPE 



; SCOPE THIS TEST 



TEST 32 *************************** 

j*MICRO PROCESSOR IBUS* REGISTER WRITE/READ TEST 
;*fLOAT A 1 THROUGH IBUS* REGISTER 0 
i*FLOAT A 0 THROUGH IBUS* REGISTER 0 

i :************************************************************** 



i 



TEST 32 



015534 


012737 


000032 


001226 


TST32: 


HOV 


#32.TSTN0 


015542 


012737 


015734 


001216 




MOV 


♦TST33,NE) 


015550 


012737 


015570 


001220 




MOV 


«64*,L0CK 


015556 


104412 








MSTCLR 




015560 


012702 


000000 






MOV 


«0,R2 


015564 


012700 


000001 






nov 


41.R0 


015570 








64*: 






015570 


010061 


000004 






MOV 


R0.4(R1) 


015574 


042761 


000030 


000004 




BIC 


«30.4CR1) 


015602 


104414 








ROMCLK 




015604 


121100 








121100 


!0 


015606 


104414 








ROMCLK 




015610 


121005 








121005 !<0*20> 


015612 


010005 








MOV 


R0.R5 


015614 


042705 


000030 






BIC 


#30. R5 


015620 


116104 


000005 






MOVB 


5(R1).R4 


015624 


120504 








CMPB 


R5.R4 


015626 


001401 








BEQ 


65* 


015630 


104004 








EMT 


4 


015632 


104401 






65$: 


SCOPl 




015634 


000241 








CLC 




015636 


106100 








R0L6 


RO 


015640 


001353 








BNE 


64* 


015642 


012737 


015656 


001220 




MOV 


«67*.L0CK 


015650 


012700 


000001 






MOV 


«1.R0 


015654 


005100 






69* : 


COM 


RO 


015656 








67$: 






015656 


010061 


000004 






MOV 


R0.4(R1) 


015662 


042761 


000030 


000004 




BIC 


«30.4(R1) 


0£ 

015670 


t Ail A % M 

104414 








ROMCLK 




015672 


121100 








121100 !0 


015674 


104414 








ROMCLK 




015676 


121005 








121005 !<0*20> 


015700 


010005 








MOV 


R0.R5 


015702 


042705 


000030 






BIC 


«30.R5 


015706 


116104 


000005 






MOVB 


5(R1).R4 


015712 


120504 








CMPB 


R5,R4 


015714 


001401 








BEQ 


68* 


015716 


104004 








EMT 


4 


015720 


104401 






68*: 


SCOPl 




015722 


005100 








COM 


RO 


015724 


000241 








CLC 




015726 


106100 








ROLB 


RO 


015730 


001351 








BNE 


69* 


015732 


104400 








SCOPE 





Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR DMCll 
SAVE REGISTER ADDRESS FOR TYPEOUT 
START WITH BIT 0 

PUT PATTERN INTO P0RT4 
CLEAR UNUANTED BITS 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

MOV DATA TO IBUS* REGISTER 0 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

READ FROM IBUS* REGISTER 0 

PUT EXPECTED IN R5 

CLEAR UNUANTED BITS 

PUT "FOUND" INTO R4 

DATA CORRECT? 

BR IF YES 

ERROR 

SU09-1? 

CLEAR CARRY 

SHIFT BIT IN RO 

IF RO-0 THEN DONE 

NEU SCOPl 

START UITH BIT 0 

CHANGE TO FLOATING ZERO 

;PUT PATTERN INTO P0RT4 
: CLEAR UNWANTED BITS 

(NEXT UORD IS INSTRUCTION. ROMCLK PC«S304 

sMOV DATA TO IBUS* REGISTER 0 

(NEXT HORO IS INSTRUCTION. ROMCLK PC-S304 

sREAO FROM IBUS* REGISTER 0 

J PUT EXPECTED IN R5 

: CLEAR UNWANTED BITS 

}PUT "FOUND" INTO R4 

sDATA CORRECT? 

;BR IF YES 

i ERROR 

iSU09-l? 

: CHANGE TO FLOATING 1 
s CLEAR CARRY 
; SHIFT BIT IN RO 
:IF RO-0 THEN DONE 
{SCOPE THIS TEST 
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3EQ 61 



*************************** TEST 33 **************4************ 

*mCRO PROCESSOR IBUS* REGISTER WRITE/READ TEST 
*FLOAT A 1 THROUGH IBUS* REGISTER 2 
*FLOAT A 0 THROUGH IBUS* REGISTER 2 

:***•*********************************************«««****«**«** 

TEST 33 



27 



015734 


012737 


000033 


001226 


TST33: 


nov 


#33.TSTN0 


015742 


012737 


016134 


001216 




nov 


#TST34.NE> 


015750 


012737 


015770 


001220 




MOV 


«64».L0CK 


015756 


104412 








MSTCLR 




015760 


01P702 


000002 






nov 


«2.R2 


015764 


012700 


000001 






MOV 


«1,R0 


015770 








64$: 




015770 


010061 


000004 






MOV 


R0,4(R1) 


015774 


042761 


000070 


000004 




BIC 


♦70.4CR1) 


016002 


104414 








ROMCLK 




016004 


121102 








121100! 


2 


016006 


104414 








ROMCLK 




016010 


121045 








121005 !< 2*20 > 


016012 


010005 








MOV 


R0.R5 


016014 


042705 


000070 






BIC 


♦70. R5 


016020 


116104 


000005 






MOVB 


5(R1).R4 


016024 


120504 








CMPB 


R5.R4 


016026 


001401 








BEQ 


65$ 


016030 


104004 








EMT 


4 


016032 


104401 






65t: 


SCOPl 




016034 


000241 








CLC 




016036 


106100 








ROLB 


RO 


016040 


001353 








BNE 


64$ 


016042 


012737 


016056 


001220 




MOV 


«67$,L0CK 


016050 


012700 


000001 






MOV 


«1,R0 


016054 


005100 






69$: 


COM 


RO 


016056 








67$: 






016056 


010061 


000004 






nov 


R0.4CR1) 


016062 


042761 


000070 


000004 




BIC 


«70.4(R1) 


016070 


104414 








ROMCLK 


016072 


121102 








121100!2 


016074 


104414 








ROMCLK 




016076 


121045 








121005! 


<2*20> 


016100 


010005 








MOV 


R0.R5 


016102 


042705 


000070 






BIC 


♦70. R5 


016106 


116104 


000005 






MOVB 


5(R1).R4 


016112 


120504 








CMPB 


RS.R4 


016114 


001401 








BEQ 


68$ 


016116 


104004 








EMT 


4 


016120 


104401 






68$: 


SCOPl 




016122 


005100 








COM 


RO 


016124 


000241 








CLC 




016126 


106100 








ROLB 


RO 


016130 


001351 








BNE 


69$ 


016132 


104400 








SCOPE 





:R1 CONTAINS BASE OMCll ADDRESS 
sMASTER CLEAR DMCll 
{SAVE REGISTER ADDRESS FOR TYPEOUT 
; START WITH BIT 0 

:PUT PATTERN INTO P0RT4 
: CLEAR UNWANTED BITS 

:NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

;MOV DATA TO IBUS* REGISTER 2 

;NEXT WORD IS INSTRUCTION, ROMCLK PC •5304 

sREAD FROM IBUS* REGISTER 2 

jPUT EXPECTED IN R5 

s CLEAR UNWANTED BITS 

;PUT "FOUND" INTO R4 

sOATA CORRECT? 

sBR IF YES 

{ERROR 

SW09-1? 

CLEAR CARRY 

SHIFT BIT IN RO 

IF RO-O THEN DONE 
(NEW SCOPl 
{START WITH BIT 0 
(CHANGE TO FLOATING ZERO 

(PUT PATTERN INTO P0RT4 
(CLEAR UNWANTED BITS 

(NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

(MOV DATA TO IBUS* REGISTER 2 

(NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

(READ FROM IBUS* REGISTER 2 

{PUT EXPECTED IN R5 

{CLEAR UNWANTED BITS 

{PUT "FOUND- INTO R4 

{DATA CORRECT? 

{BR IF YES 

ERROR 

SW09-17 

CHANGE TO FLOATING 1 
CLEAR CARRY 
SHIFT BIT IN RO 
IF RO-O THEN DONE 
SCOPE THIS TEST 
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SEQ 62 



**************************** TEST 34 *************************** 

i*t1ICR0 PROCESSOR IBUS* REGISTER WRITE/READ TEST 
!*FLOAT A 1 THROUGH IBUS* REGISTER 4 
i AFLOAT A 0 THROUGH IBUS* REGISTER 4 

; ;****«*************************4,***********«*«***«*A«AAAA«^«444 



i TEST 34 



016134 


012737 


000034 


001226 


TST34: 


« 

MOV 


#34.TSTN0 








016142 


012737 


016310 


001216 




MOV 


#TST35,NEXT 








016150 


012737 


016170 


001220 




MOV 


#64$. LOCK 








016156 














iRl CONTAINS BASE DMCll ADDRESS 






104412 








MSTCLR 




iMASTER CLEAR DMCll 






016160 


012702 


000004 






MOV 


44, R2 


iSAVE REGISTER ADDRESS FOR TYPEOUT 




016164 


012700 


000001 






MOV 


41. RO 


: START WITH BIT 0 






016170 








64$: 










016170 


010061 


000004 






MOV 


R0,4(R1) 


jPUT PATTERN INTO P0RT4 






A 4 £ 4 

016174 


104414 








ROMCLK 




sNEXT WORD IS INSTRUCTION, ROMCLK 


PC 


•5304 


A1 £1 7£ 


1914 Ail 

121104 








4^44 AA 1 

121100! 


ii 
4 


;MOV DATA TO IBUS* REGISTER 4 


016200 


1 Ail il 1 Jl 

104414 








nOnCLK 




sNEXT WORD IS INSTRUCTION, ROMCLK 


PC 


'5304 


016202 


4 9 4 4 AC 
121105 








4^4 A AC ■ 

121005! 


<4*20> 


:READ FROM IBUS* REGISTER 4 


U10cU4 


Al AAAC 








nOV 


OA DC 

R0,R5 


sPUT EXPECTED IN R5 








4 4 £4 AA 








MAUD 

nuvD 


3^ Kl J , R4 


sPUT "FOUND" INTO R4 






Al 3 


1 9ACAA 
XcU3U4 








CMPB 


R5.R4 


iDATA CORRECT? 






vX DC XH 


001 dm 

WXHVl 








BEQ 


65* 


iBR IF YES 






Al ItOfft 
UXOclO 


1 AAAAA 








EMT 


4 


s ERROR 






Al &93A 


1 AAAA1 
XU't'tUX 






D3* : 


SCOPl 




SSW09-1? 






Al COOO 


AAA9A1 
WUUe*» X 








CLC 




{CLEAR CARRY 






Al 


1 Ail 1 AA 








ROLB 


RO 


: SHIFT BIT IN RO 






Al iLO^iL 


AA1 TiLA 








BNE 


64« 


:IF RO-0 THEN DONE 






Al ilOVA 
UXOcAU 


Al 07^7 




AA1 O'^A 




MOV 


«67*.L0CK 


sNEU SCOPl 






Al i>9TA 


Al 07AA 








MOV 


41, RO 


i START UITH BIT 0 






Al 


AACI AA 






©»» : 


COM 


RO 


(CHANGE TO FLOATING ZERO 














o/ » : 












A| AA£1 


A A AAA A 






MOV 


R0.4(R1) 


sPUT PATTERfJ INTO P0RT4 






Al &9CA 


1 AAA 1 A 








ROMCLK 




:NEXT WORD IS INSTRUCTION. ROMCLK PC 


"5304 


016252 


121104 








121100 '4 


;MOV DATA TO IBUS* *?EGISTER 4 




016254 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION, ROMCLK 


PC 


•5304 


016256 


121105 








121005 !< 4*20 > 


iREAD FROM IBUS* REGISTER 4 




016260 


010005 








MOV 


R0.R5 


sPUT EXPECTED IN R5 






016262 


116104 


000005 






MOVB 


5(R1),R4 


{PUT -FOUND" INTO R4 






016266 


120504 








CMPB 


R5.R4 


{DATA CORRECT? 






016270 


001401 








BEQ 


681 


(BR IF YES 






016272 


104004 








EMT 


4 


(ERROR 






016274 


104401 






66$: 


SCOPl 




{SU09-1? 






016276 


005100 








COM 


RO 


(CHANGE TO FLOATING 1 






016300 


000241 








CLC 




(CLEAR CARRY 






016302 


106100 








ROLB 


RO 


(SHIFT BIT IN RO 






016304 


001356 








BNE 


69 » 


(IF RO-0 THEN DONE 






016306 


104400 








SCOPE 




(SCOPE THIS TEST 
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{*************************** TEST 35 *************************** 

{*MICRO PROCESSOR IBUS* REGISTER URITE/REAO TEST 
{*FLOAT A 1 THROUGH IBUS* REGISTER 5 
(AFLOAT A 0 THROUGH IBUS* REGISTER 5 
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SEQ 63 



! TEST 35 



016310 


012737 


000035 


001226 


TST35: 


• 

nov 


♦35.TSTN0 






016316 


012737 


016464 


001216 




rtov 


♦TST36.NEXT 






016324 


012737 


016344 


001220 




MOV 


«64$,L0CK 


:R1 CONTAINS BASE DMCll ADDRESS 




016332 


104412 








MSTCLR 




{MASTER CLEAR DMCll 




016334 


012702 


000005 






MOV 


*5.R2 


:SAVE REGISTER ADDRESS FOR TYPEOUT 




016340 


012700 


000001 






MOV 


«1.R0 


{START WITH BIT 0 




016344 








64$: 










016344 


010061 


000004 






MOV 


R0.4(R1) 


sPUT PATTERN INTO P0RT4 




016350 


104414 








ROMCLK 




{NEXT UORD IS INSTRUCTION. ROMCLK PC< 


>530t 


016352 


121105 








121100! 


5 


{MOV DATA TO IBUS* REGISTER 5 




016354 


104414 








ROMCLK 




{NEXT UORD IS INSTRUCTION, ROMCLK PC 


•5304 


016356 


121125 








121005! 


<5*20> 


{READ FROM IBUS* REGISTER 5 




016360 


010005 








MOV 


R0.R5 


{PUT EXPECTED IN R5 




016362 


116104 


000005 






MOVB 


5(R1).R4 


{PUT "FOUND" INTO R4 




016366 


120504 








CMPB 


R5.R4 


{DATA CORRECT? 




016370 


001401 








BEQ 


65$ 


:BR IF YES 




016372 


104004 








EMT 


4 


{ERROR 




016374 


104401 






65): 


SCOPl 




{SU09-1? 




016376 


000241 








CLC 




{CLEAR CARRY 




016400 


106100 








ROLB 


RO 


{SHIFT BIT IN RO 




016402 


001360 








ONE 


64$ 


(IF R0«0 THEN DONE 




016404 


012737 


016420 


001220 




MOV 


«67$.L0CK 


(NEU SCOPl 




016412 


012700 


000001 






MOV 


«1.R0 


{START WITH BIT 0 




016416 


005100 






69$: 


con 


RO 


{CHANGE TO FLOATING ZERO 




016420 








67$: 










016420 


010061 


000004 






MOV 


R0.4(R1) 


{PUT PATTERN INTO P0RT4 




016424 


104414 








ROMCLK 




{NEXT UORD IS INSTRUCTION, ROMCLK PC 


•5304 


016426 


121105 








121100!5 


{MOV DATA TO IBUS* REGISTER 5 




016430 


104414 








ROMCLK 




(NEXT UORD IS INSTRUCTION, ROMCLK PC 


"5304 


016432 


121125 








121005 !< 5*20 > 


{READ FROM IBUS* REGISTER 5 




016434 


010005 








MOV 


R0.R5 


(PUT EXPECTED IN R5 




016436 


116104 


000005 






MOVB 


5(R1).R4 


{PUT "FOUND" INTO R4 




016442 


120504 








CMPB 


R5.R4 


{DATA CORRECT? 




016444 


001401 








BEQ 


66$ 


(BR IF YES 




016446 


104004 








EMT 


4 


(ERROR 




016450 


104401 






68$: 


SCOPl 




(SU09-1? 




016452 


005100 








COM 


RO 


(CHANGE TO FLOATING 1 




016454 


000241 








CLC 




(CLEAR CARRY 




016456 


106100 








ROLB 


RO 


(SHIFT BIT IN RO 




016460 


001356 








BNE 


69$ 


(IF RO-0 THEN DONE 




016462 


104400 








SCOPE 




(SCOPE THIS TEST 
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{********«********«******•** TEST 36 *************************** 

{*MICRO PROCESSOR IBUS* REGISTER URITE/REAO TEST 

(*FLOAT A 1 THROUGH IBUS* REGISTER 10 

{*FLOAT A 0 THROUGH IBUS* REGISTER 10 

{*THE NPR RQ BIT (BIT 0) IS MASKED DURING THIS TEST 

; :****************«****************•**************************** 

; TEST 36 
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VX 


012737 

VAC • • 


000036 


001226 


TST36- 


MOV 


d36 TSTNO 








016472 


012737 


016664 


001216 




MOV 


*TST37 NEXT 








VX w 


012737 


016S20 


001220 




MOV 


dfiAl LOCK 


iRl CONTAINS BASE OMCll ADDRESS 






016S06 

WA W 


1044 12 








MSTCLR 




{MASTER CLEAR DMCll 






016510 


012702 


000010 






MOV 


1^10. R2 


:SAVE REGISTER ADDRESS FOR TYPEOUT 




016514 


012700 


000001 






MOV 


1^1 ,R0 








016520 






















010061 


000004 






MOV 


RO 4(R11 


•PUT PATTFRN INTO PnPTA 






016524 


042761 


000141 


000004 




BIC 


•141 4(R11 


•CLEAR UNUANTFO BITS 






016532 


104414 








ROMCLK 




I NEXT UDRD TS TN^TDUrTTON QnMri U 


PC -5304 


016534 


121110 








121100! 


10 


■MOV DATA TO IBUS* REGTSTFR 10 






016536 


104414 








ROMCLK 




:NEXT WORD IS INSTRUCTION RQMrLK 


PC> 




016540 


121205 








121005! 


<10*20> 


:READ FROM IBUS* REGISTER 10 






016542 


010005 








MOV 


R0,R5 


2 PUT EXPECTED IN R5 






016544 


042705 


000141 






BIC 


•141. R5 


! CLEAR UNWANTED BITS 






016550 


116104 


000005 






M0V6 


S(R1}.R4 


(PUT "FOUND" INTO R4 






016554 


120504 








CMPB 


R5,R4 


sDATA CORRECT? 






016556 


001401 








BEQ 


65* 


;BR IF YES 






016560 


104004 








EMT 


4 


; ERROR 






016562 


104401 






65*: 


SCOPl 




:SU09-1? 






016564 


000241 








CLC 




(CLEAR CARRY 






016566 


106100 








R0L6 


RO 


; SHIFT BIT IN RO 






016570 


001353 








BNE 


64) 


:IF RO-0 THEN DONE 






016572 


012737 


016606 


001220 




MOV 


#67) .LOCK 


iNEU SCOPl 






016600 


012700 


000001 






MOV 


•l.RO 


tSTART UITH BIT 0 






016604 


005100 






691: 


COM 


RO 


(CHANGE TO FLOATING ZERO 






016606 








67$: 












016606 


010061 


000004 






MOV 


R0.4(R1) 


(PUT PATTERN INTO P0RT4 






016612 


042761 


000141 


000004 




BIC 


*141.4(R1) 


i CLEAR UNUANTED BITS 






016620 


104414 








ROnCLK 




iNEXT WORD IS INSTRUCTION. ROMCLK 


PC 


■5304 


016622 


121110 








121100! 10 


iMOV DATA TO IBUS* REGISTER 10 






016624 


104414 








ROnCLK 




iNEXT WORD IS INSTRUCTION, ROMCLK PC 


•5304 


016626 


121c 05 








121005 !<10*20> 


iREAD FROM IBUS* REGISTER 10 






016630 


010005 








MOV 


R0.R5 


sPUT EXPECTED IN R5 






016632 


042705 


000141 






BIC 


•141. R5 


1 CLEAR UNUANTED BITS 






016636 


116104 


000005 






MOVB 


5(R1).R4 


J PUT "FOUND" INTO R4 






016642 


120504 








CMPB 


R5.R4 


tOATA CORRECT? 






016644 


001401 








BEQ 


68) 


tBR IF YES 






016646 


104004 








EMT 


4 


{ERROR 






016650 


104401 






681: 


SCOPl 




ISU09-1? 






016652 


005100 








COM 


RO 


(CHANGE TO FLOATING 1 






016654 


000241 








CLC 




(CLEAR CARRY 






016656 


106100 








ROLB 


RO 


(SHIFT BIT IN RO 






016660 


001351 








BNE 


69) 


(IF RO-0 THEN DONE 






016662 


104400 








SCOPE 




(SCOPE THIS TEST 







SO 

TEST 37 *************** 

(*MICRO PROCESSOR IBUS* REGISTER URITE/READ TEST 

(*FLOAT A 1 THROXH IBUS* REGISTER 11 

(*FLOAT A 0 THROUGH IBUS* REGISTER 11 

i*^HE BR RQ BIT. PGM CLOCK BIT. FORCE POUER FAIL BIT 

(*(BITS 7.4.1) ARE ALL MASKED DURING THIS TEST 



( TEST 37 
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016664 


012737 

VAC r ' 


000037 


001226 


TST37: 


nov 


•37 TSTNQ 






016672 


012737 


017104 


001216 




nov 


•TST40 NEXT 






016700 


012737 


016720 


001220 




nov 


•641 LOCK 


:R1 CONTAINS BASE DHCll ADDRESS 




016706 


104412 








HSTCLR 




zMASTER CLEAR DMCll 




016710 


012702 


000011 






nov 


411. R2 


iSAVE REGISTER ADDRESS FOR TYPEOUT 




016714 


012700 


000001 






nov 


41 .RO 


{START WITH BIT 0 




016720 








641: 










016720 


010061 


000004 






nov 


R0.4(R1} 


J PUT PATTERN INTO P0RT4 




016724 


042761 


000262 


000004 




BIC 


4262. 4(R1) 


1 CLEAR UNWANTED BITS 




016732 


104414 








ROnCLK 




iNEXT WORD IS INSTRUCTION. RONCLK PC< 


■5304 


016734 


121111 








121100 


!11 


tnov DATA TO IBUS* REGISTER 11 




016736 


104414 








ROnCLK 




:NEXT UORD IS INSTRUCTION. ROnCLK PC-5304 


016740 


121225 








121005 


!<11*20> 


;REAO FROn IBUS* REGISTER 11 




016742 


010005 








nov 


R0.R5 


:PUT EXPECTED IN R5 




016744 


042705 


000262 






BIC 


4262. R5 


; CLEAR UNWANTED BITS 




016750 


052705 


000020 






BIS 


420. R5 


lADO THESE BITS 




016754 


116104 


000005 






novB 


5(R1},R4 


iPUT "FOUND" INTO R4 




016760 


052704 


000020 






BIS 


420. R4 


iADD THIS BIT 




016764 


120504 








CHPB 


R5,R4 


(DATA CORRECT? 




016766 


001401 








BEQ 


65 > 


iBR IF YES 




016770 


104004 








EMT 


4 


i ERROR 




016772 


104401 






65t: 


SCOPl 




tSU09-l? 




016774 


000241 








CLC 




(CLEAR CARRY 




016776 


106100 








HOIB 


RO 


1 SHIFT BIT IN RO 




017000 


001347 








BNE 


64» 


lIF RO-O THEN DONE 




017002 


012737 


017016 


001220 




nov 


467 >. LOCK 


iNEU SCOPl 




017010 


012700 


000001 






nov 


41, RO 


t START WITH BIT 0 




017014 


005100 






691: 


COH 


RO 


(CHANGE TO FLOATING ZERO 




017016 








671: 










017016 


010061 


000004 






nov 


R0.4(R1) 


iPUT PATTERN INTO P0RT4 




017022 


042761 


000262 


000004 




BIC 


4262. 4(R1} 


(CLEAR UNWANTED BITS 




017030 


104414 








ROnCLK 




(NEXT WORD IS INSTRUCTION. RONCLK PC 


-5304 


017032 


121111 








121100*11 


(NOV DATA TO IBUS* REGISTER 11 




017034 


104414 








ROnCLK 




(NEXT WORD IS INSTRUCTION. ROnCLK PC 


-5304 


017036 


121225 








121005 !<11*20> 


(READ FROn IBUS* REGISTER 11 




017040 


010005 








nov 


R0.R5 


(PUT EXPECTED IN R5 




017042 


042705 


000262 






BIC 


4262. R5 


(CLEAR UNWANTED BITS 




017046 


052705 


000020 






BIS 


420. R5 


(ADO THESE BITS 




017052 


116104 


000005 






nova 


5(R1),R4 


(PUT -FOUND" INTO R4 




017056 


052704 


000020 






BIS 


420, R4 


(ADO THIS BIT 




017062 


120504 








cnPB 


RS.R4 


(DATA CORRECT? 




017064 


001401 








BEQ 


661 


(BR IF YES 




017066 


104004 








EnT 


4 


(ERROR 




017070 


104401 






6at: 


SCOPl 




(SU09-1? 




017072 


005100 








con 


RO 


(CHANGE TO FLOATING 1 




017074 


000241 








CLC 




(CLEAR CARRY 




017076 


106100 








ROLB 


RO 


(SHIFT BIT IN RO 




017100 


001345 








BNE 


691 


(IF RO-O THEN DONE 




017102 


104400 








SCOPE 




(SCOPE THIS TEST 





36 

,*******«******************* TEST 40 **********. 

(*NICRO PROCESSOR IBUS REGISTER URITE/RCAO TEST 
(AFLOAT A 1 THROUGH IBUS REGISTER 0 
(AFLOAT A 0 THROUGH IBUS REGISTER 0 



CZOUC HACRO V04,00 27-MH-95 15:16:37 PUCi. 27-27 

oncii iicRO raocESSOR »us tests 



SEQ 66 



TEST 40 





0197S7 

VIC 19 1 


000040 


001996 


TST40' 


■ ^ • 


MO TSTNO 




019717 


V* * CwV 


001916 

W AC Aw 




nov 


#TST41 NE 


017190 


012737 


017140 


001990 

W XC V 




nov 


«64$ LOCK 


017126 


104419 

*V^^ Aft 








ISTCLfl 




017130 


019709 

V A ft ' Vft 


000000 






nov 


•0.R2 


0»7134 


012700 


000001 






10V 


•1 .RO 


017140 








6^ : 






0* 7140 


010061 


000004 






10V 


R0.4(R1) 


017144 


104414 








ROMCLK 




017146 


122100 








122100 


!0 


0171S0 


104414 








ROMCLK 




017152 


021005 








21005! 


<0*20> 


017154 


010005 








MOV 


RO.RS 


017156 


116104 


000005 






HOVB 


5(R1).R4 


017162 


120504 








CURB 


R5,R4 


017164 


001401 








BEQ 


65$ 


017166 


104005 








EMT 


5 


017170 


104401 






65* : 


SCOPl 




017172 


000241 








CLC 




017174 


106100 








ROLB 


RO 


017176 


001360 








BNE 


64t 


017200 


012737 


017214 


001220 




«0V 


#67».L0CK 


017206 


012700 


000001 






MOV 


«1.R0 


017212 


005100 






69<: 


COM 


RO 


017214 








67S: 






017214 


010061 


000004 






MOV 


R0.4(R1) 


017220 


104414 








ROMCLK 




017222 


122100 








122100 !0 


017224 


104414 








ROnCLK 




017226 


021005 








21005! «0*20> 


017230 


010005 








MOV 


R0.R5 


017232 


116104 


000005 






MOVB 


5(R1).R4 


017236 


120504 








CMPB 


R5.R4 


017240 


001401 








BEQ 


68* 


017242 


104005 








EMT 


5 


017244 


104401 






68S: 


SCOPl 




On246 


005100 








COM 


RO 


017250 


000241 








CLC 




017252 


106100 








ROLB 


RO 


017254 


001356 








BNE 


69 1 


017256 


104400 








SCOPE 





Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR OMCll 
SAVE REGISTER ADDRESS POR TYPEOUT 
START UITH BIT 0 



ROMCLK PC -5304 
0 

ROMCLK PC -5304 



PUT PATTERN INTO P0RT4 
NEXT WORD IS INSTRUCTION. 
MOV DATA TO IBUS REGISTER 
NEXT UORD IS INSTRUCTION. 
sREAD PROM IBUS REGISTER 0 
PUT EXPECTED IN R5 
PUT "FOUND" INTO R4 
DATA CORRECT? 
BR IF YES 
ERROR 
SU09-1? 
CLEAR CARRY 
SHIFT BIT IN RO 
IF RO'O THEN DONE 
NEW SCOPl 
START UITH BIT 0 
CHANGE TO FLOATING ZERO 



PUT PATTERN INTO P0RT4 
NEXT UORD IS INSTRUCTION. 
MOV DATA TO IBUS REGISTER 
NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
READ FROM IBUS REGISTER 0 
PUT EXPECTED IN R5 
PUT "FOUND* INTO R4 
DATA CORRECT? 
BR IF YES 
ERROR 
SU09-1? 

CHANGE TO FLOATING 1 
CLEAR CARRY 
SHIFT BIT IN RO 
IF RO-0 THEN DONE 
; SCOPE THIS TEST 



ROMCLK PC-5304 
0 



J*************************** TEST 41 *************************** 

j*MICRO PROCESSOR IBUS REGISTER WIITE/READ TEST 
;*FLOAT A 1 THROUGH IBUS REGISTER 1 
i*FLOAT A 0 THROUGH IBUS REGISTER 1 

s : ************************************************************** 



017260 012737 000041 001226 TST41: 



; TEST 41 

MOV «41. TSTNO 



CZCC MACHO V04.00 27 jm-95 13:16:57 MGE 27 28 
0»1C:i MICRO PROCESSOR IBUS TESTS 



SEQ 67 



CI 7266 


012737 


017434 


001216 




MOV 


•TST42.NEX 


017274 


012757 


017314 


001220 




MOV 


«64$ .LOCK 


017502 


104412 








MSTCLR 




017504 


012702 


000001 






MOV 


»1,R2 


017310 


012700 


000001 






MOV 


«1.R0 


017514 








64t: 






017514 


010061 


000004 






MOV 


R0.4(R1} 


017320 


104414 








ROMCLK 




017322 


122101 








122100 


!1 


017524 


104414 








ROMCLK 




017526 


021025 








21005! 


<1*20> 


017530 


010005 








MOV 


R0,R5 


017552 


116104 


000C05 






MOVB 


5(R1).R4 


017356 


120504 








CIPB 


R5.R4 


017340 


001401 








BEQ 


65$ 


017542 


104005 








EMT 


5 


017344 


104401 






65t: 


SCOPl 




017346 


000241 








CLC 




017350 


106100 








ROLB 


RO 


017352 


001360 








6NE 


64$ 


017554 


012737 


017370 


001220 




MOV 


•67$. LOCK 


017362 


012700 


000001 






MOV 


«1.R0 


017566 


005100 






69$: 


COM 


RO 


017370 








67$: 






017570 


010061 


000004 






MOV 


R0.4(R1) 


017374 


104414 








ROMCLK 




017376 


122101 








122100 


•1 


017400 


104414 








ROMCLK 




017402 


021025 








21005! 


<1*20> 


017404 


010005 








MOV 


R0.R5 


017406 


116104 


000005 






MOVB 


5(R1).R4 


017412 


120504 








CMPB 


R5,R4 


017414 


001401 








BEQ 


68* 


017416 


104005 








EMT 


5 


017420 


104401 






68$: 


SCOPl 




017422 


005100 








COM 


RO 


017424 


00C241 








CLC 




017426 


106100 








ROLB 


RO 


017430 


001356 








BNE 


691 


017432 


104400 








SCOPE 





Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR OMCll 
SAVE REGISTER ADDRESS FOR TYPECUT 
s START UITH BIT 0 

PUT PATTERN INTO P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC '5304 

MOV DATA TO IBUS REGISTER 1 

NEXT UORD IS INSTRUCTION. ROMCLK PC»5304 

READ FROM IBUS REGISTER 1 

PUT EXPECTED IN R5 

PUT "FOUND" INTO R4 

DATA CORRECT? 

BR IF YES 

ERROR 

SU09-1? 

CLEAR CARRY 

SHIFT BIT IN RO 

IF R0«0 THEN DONE 

NEW SCOPl 

START UITH BIT 0 

CHANGE TO FLOATING ZERO 

PUT PATTERN INTO P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC»5304 

MOV DATA TO IBUS REGISTER 1 

NEXT WORD IS INSTRUCTION, ROMCLK PC -5304 

READ FROM IBUS REGISTER 1 

PUT EXPECTED IN R5 

PUT -FOUND' INTO R4 

DATA CORRECT? 

BR IF YES 

ERROR 

SW09-1? 

CHANGE TO FLOATING 1 
i CLEAR CARRY 
{SHIFT BIT IN RO 
;ir RO-0 THEN DONE 
s SCOPE THIS TEST 



i*************************** TEST 42 *************************** 

!*MICRO PROCESSOR IBUS REGISTER WRITE/READ TEST 
;*FLOAT A 1 THROUGH IBUS REGISTER 2 
;*FLOAT A 0 THROUGH IBUS REGISTER 2 

• : ************************************************************** 



TEST 42 



017434 012737 000042 001226 TST42: 

017442 012737 017610 001216 

017450 012737 0174-'0 001220 

017456 104412 

017460 012702 000002 



MOV 
MOV 
MOV 



♦42.TSTN0 

♦TST43.NEXT 

«64$.L0CK 



MSTCLR 

MOV ♦2,R2 



Rl CONTAINS BASE OMCll ADDRESS 

MASTER CLEAR OMCll 

SAVE REGISTER ADDRESS FOR TVPEOUT 



CZOMC MACRO V04.00 27 JUN 85 13:16:37 PAGE 27-29 
OMCll MICRO PROCESSOR I8US TESTS 



017464 


012700 


000001 


MOV 


01. RO sSTART UITH BIT 0 






017470 




64): 












017470 


010061 


000004 


MOV 


R0.4(R1) i 


PUT PATTERN INTO PORT* 






017474 


104414 




ROMCLK 




NEXT UORD IS INSTRUCTION. 


ROMCLK 


PC '5304 


017476 


122102 




122100 


!2 


MOV DATA TO IBUS REGISTER 


2 




017500 


104414 




ROMCLK 




NEXT WORD IS INSTRUCTION, 


ROMCLK 


PC -5304 


017502 


021045 




21005! 


<2*20> 


READ FROM IBUS REGISTER 2 






017504 


010005 




MOV 


R0.R5 


PUT EXPECTED IN R5 






017506 


116104 


000005 


MOVB 


5(R1),R4 


PUT "FOUND" INTO R4 






017512 


120504 




CMPB 


R5.R4 


DATA CORRECT? 






017514 


001401 




BEO 


65 i 


BR IF YES 






017516 


104005 




EMT 


5 


ERROR 






017520 


104401 


651: 


SCOPl 




SU09>1? 






017522 


000241 




CLC 




CLEAR CARRY 






017524 


106100 




ROLB 


RO 


SHIFT BIT IN RO 






017526 


001360 




BNE 


64$ 


IF RO-0 THEN DONE 






017550 


012737 


017544 001220 


MOV 


«67$.L0CK 


NEW SCOPl 






017536 


012700 


000001 


MOV 


«1.R0 


START WITH BIT 0 






017542 


005100 


69* : 


COM 


RO 


CHANGE TO FLOATING ZERO 






017544 




671: 












017544 


010061 


000004 


MOV 


R0,4CR1) 


PUT PATTERN INTO P0RT4 






017550 


104414 




ROMCLK 




NEXT WORD IS INSTRUCTION, 


ROMCLK 


PC*5304 


017552 


122102 




122100 


•2 


MOV DATA TO IBUS REGISTER 


2 




017554 


104414 




ROMCLK 




NEXT WORD IS INSTRUCTION. 


ROMCLK 


PC "5304 


017556 


021045 




21005! 


<2*20> 


READ FROM IBUS REGISTER 2 






017560 


010005 




MOV 


RO.RS 


.PUT EXPECTED IN R5 






017562 


116104 


000005 


MOVB 


5(R1),R4 


,PUT "FOUND" INTO R4 






017566 


120504 




CMPB 


R5,R4 


(DATA CORRECT? 






017570 


001401 




BEQ 


68 1 


BR IF YES 






017572 


104005 




EMT 


5 


.ERROR 






017574 


104401 


68t: 


SCOPl 




(SW09-1? 






017576 


005100 




COM 


RO 


i CHANGE TO FLOATING 1 






017600 


000241 




CLC 




i CLEAR CARRY 






017602 


106100 




ROLB 


RO 


i SHIFT BIT IN RO 






017604 


001356 




BNE 


69) 


;IF RO-0 THEN DONE 






017606 


104400 




SCOPE 


8 SCOPE THIS TEST 







;*************************** TEST 43 *************************** 

:*t1ICR0 PROCESSOR IBUS REGISTER WRITE/READ TEST 
i<-FLOAT A 1 THROUGH IBUS REGISTER 3 
: AFLOAT A 0 THROUGH IBUS REGISTER 3 

;:************************************************************** 

; TEST 43 



s 



017610 


012737 


000043 


001226 


TST43: 


MOV 


#43.TSTN0 




017616 


012737 


017764 


001216 




MOV 


♦TST44.NEXT 




017624 


012737 


017644 


001220 




MOV 


«64).L0CK 


Rl CONTAINS BASE DMCll ADDRESS 


017632 


104412 








MSTCLR 




MASTER CLEAR DMCll 


017634 


012702 


000003 






MOV 


♦3.R2 


SAVE REGISTER ADDRESS FOR TYPEOUT 


017640 


012700 


000001 






MOV 


*1.R0 


START WITH BIT 0 


017644 








64): 








017644 


010061 


000004 






MOV 


R0,4(R1) 


PUT PATTERN INTO P0RT4 


017650 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 


017652 


122103 








122100!3 


MOV DATA TO IBUS REGISTER 3 
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017654 104414 

017656 021065 

017660 010005 

017662 116104 000005 

017666 120504 

017670 001401 

017672 104005 

017674 104401 

017676 000241 

017700 106100 

017702 001360 

017704 012737 017720 001220 

017712 012700 000001 

017716 005100 
017720 

017720 01C061 000004 

017724 104414 

017726 122103 

017730 104414 

017732 021065 

017734 010005 

017736 116104 000005 

017742 120504 

017744 001401 

017746 104005 

017750 104401 

017752 005100 

017754 000241 

017756 106100 

017760 001356 

017762 104400 



SEQ 69 



651: 



69t: 
67$: 



681: 



ROflCLK 




NEXT UORD IS INSTRUCTION. 


ROMCLK 


PC' 


5304 


21005! 


<3*20> : 


READ FROM IBUS REGISTER 3 








MOV 


R0.R5 : 


PUT EXPECTED IN R5 








HOVB 


5(R1}.R4 : 


PUT "FOUND" INTO R4 








CHPB 


R5.R4 i 


DATA CORRECT? 








BEQ 


65$ 


BR IF YES 








EMT 


5 ; 


ERROR 








SCOPl 




SW09»1? 








CLC 




CLEAR CARRY 










DA 


onlr \ oil XTi H\J 








BNE 


64 » 


IF RO-0 THEN DONE 








MOV 


#671 .LOCK 


NEW SCOPl 








MOV 


«1.R0 


START UITH BIT 0 








COM 


RO 


CHANGE TO FLOATING ZERO 








MOV 


R0.4CR1) 


PUT PATTERN INTO P0RT4 








ROMCLK 




NEXT WORD IS INSTRUCTION, 


ROMCLK 


PC 


-5304 


122100 


!3 


MOV DATA TO IBUS REGISTER 


3 






ROMCLK 




NEXT UORD IS INSTRUCTION. 


ROMCLK 


PC 


=•5304 


21005! <3*20> 


READ FROM IBUS REGISTER 3 








MOV 


R0.R5 


.PUT EXPECTED IN R5 








MOVB 


5(R1).R4 


.PUT "FOUND" INTO R4 








CMPB 


R5.R4 


DATA CORRECT? 








BEQ 


68* 


.BR IF YES 








EMT 


5 


; ERROR 








SCOPl 




!SU09-1? 








COM 


RO 


; CHANGE TO FLOATING 1 








CLC 




; CLEAR CARRY 








ROLB 


RO 


; SHIFT BIT IN RO 








BNE 


69$ 


jIF RO-0 then DONE 








SCOPE 




s SCOPE THIS TEST 









*************************** TEST 44 *************************** 

*MICRO PROCESSOR IBUS REGISTER URITE/REAO TEST 
♦FLOAT A 1 THROUGH IBUS REGISTER 4 
♦FLOAT A 0 THROUGH IBUS REGISTER 4 

:************************************************************** 
TEST 44 



017764 


012737 


000044 


001226 


TST44: 


MOV 


«44.TSTN0 




017772 


012737 


020140 


001216 




MOV 


♦TST45.NEXT 




020000 


012737 


020020 


001220 




MOV 


«64$.L0CK 




020006 


104412 








MSTCLR 




i 

t 


020010 


012702 


000004 






MOV 


t4.R2 


t 


020014 


012700 


000001 






MOV 


*1.R0 


ff 


020020 








64$: 




R0.4CR1) 




020020 


010061 


000004 






MOV 


• 


020024 


104414 








ROMCLK 




s 


020026 


122104 








122100 !4 




020030 


104414 








ROMCLK 






020032 


021105 








21005! <4*20> 




020034 


010005 








MOV 


R0.R5 




020036 


116104 


000005 






MOVB 


5(R1),R4 




020042 


120504 








CMPB 


R5.R4 


• 



ADDRESS 



MOV DATA TO IBUS REGISTER 
NEXT WORD IS INSTRUCTION. 
READ FROM IBUS REGISTER 4 
PUT EXPECTED IN R5 
PUT "FOUND" INTO R4 



ROMCLK PC-5304 
4 

ROMCLK PC-5304 
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020044 


001401 








BEQ 


65* 


BR IF YES 


020046 


104005 








EMT 


5 


ERROR 


020050 


104401 






65*: 


SCOPl 




SU09»1? 


020052 


000241 








CLC 




CLEAR CARRY 


020054 


106100 








ROLB 


RO 


SHIFT BIT IN RO 


020056 


001360 








BNE 


64* 


IF RO'O THEN DONE 


020060 


012737 


020074 


001220 




MOV 


♦67*. LOCK 


NEU SCOPl 


020066 


012700 


000001 






MOV 


«1.R0 


START WITH BIT 0 


020072 


005100 






69«: 


COM 


RO 


CHANGE TO FLOATING ZERO 


020074 








67»: 








020074 


010061 


000004 






MOV 


R0.4(R1) 


PUT PATTERN INTO P0RT4 


020100 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


020102 


122104 








122100 !4 


MOV DATA TO IBUS REGISTER 4 


020104 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


020106 


021105 








21005! <4*20> 


READ FROM IBUS REGISTER 4 


020110 


010005 








MOV 


R0.R5 jPUT EXPECTED IN R5 


020112 


116104 


000005 






MOVB 


5(R1).R4 


PUT "FOUND" INTO R4 


020116 


120504 








CMPB 


R5,R4 


DATA CORRECT? 


020120 


001401 








BEQ 


68* 


BR IF YES 


020122 


104005 








EMT 


5 


ERROR 


020124 


104401 






68 


SCOPl 




SU09-1? 


020126 


005100 








COM 


RO 


CHANGE TO FLOATING 1 


020130 


000241 








CLC 




CLEAR CARRY 


020132 


106100 








ROLB 


RO 


SHIFT BIT IN RO 


020134 


001356 








BNE 


69* 


IF RO-0 THEN DONE 


020136 


104400 








SCOPE 




; SCOPE THIS TEST 












TEST 45 *************************** 












s*MICRO 


PROCESSOR IBUS REGISTER WRITE/READ TEST 












j*FLOAT 


A 1 THROUGH IBUS 


REGISTER 5 












!*FLOAT 


A 0 THROUGH IBUS 


REGISTER 5 












;:**********************************************************««** 












; TEST 


45 




020140 


012737 


000045 


001226 


TST45: 


MOV 


♦45.TSTN0 




020146 


012737 


020314 


001216 




MOV 


•TST46.NEXT 




020154 


012737 


020174 


O01220 




MOV 


«64».L0CK 
















:R1 CONTAINS BASE DMCll ADDRESS 


020162 


104412 








MSTCLR 


{MASTER CLEAR DMCll 


020164 


012702 


000005 






MOV 


♦5.R2 


iSAVE REGISTER ADDRESS FOR TYPEOUT 


020170 


012700 


000001 






MOV 


♦l.RO 


tSTART UITH BIT 0 


020174 








64»: 








020174 


010061 


000004 






MOV 


R0.4(Rl) aPUT PATTERN INTO P0RT4 


020200 


104414 








ROMCLK 


sNEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


020202 


122105 








122100! 


5 


iMOV DATA TO IBUS REGISTER 5 


020204 


104414 








ROMCLK 




iNEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


020206 


021125 








21005! <5*20> 


;READ FROM IBUS REGISTER 5 


020210 


010005 








MOV 


R0.R5 


iPUT EXPECTED IN R5 


020212 


116104 


000005 






MOVB 


5(R1).R4 


.PUT "FOUND" INTO R4 


020216 


120504 








CMPB 


R5.R4 


.DATA CORRECT? 


020220 


001401 








BEQ 


65* 


BR IF YES 


020222 


104005 








EMT 


5 


ERROR 


020224 


104401 






65t: 


SCOPl 




SU09-1? 


020226 


000241 








CLC 




.CLEAR CARRY 


020230 


106100 








ROLB 


RO 


(SHIFT BIT IN RO 
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020232 


001360 






BNE 


64) i 


IF RO-0 THEN DONE 






020234 


012737 


020250 


001220 


MOV 


«67».L0CK 


NEU SCOPl 






020242 


012700 


000001 




nov 


'0 


START UITH BIT 0 






020246 


005100 




69J: 


COM 


RO i 


CHANGE TO FLOATING ZERO 






020250 






67»: 












020250 


010061 


000004 




MOV 


R0.4(R1) ;PUT PATTERN INTO P0RT4 






020254 


104414 






ROMCLK 


sNEXT UORD IS INSTRUCTION. 


ROMCLK 


PC-5304 


020256 


122105 






122100 


•5 ;MOV DATA TO IBUS REGISTER 


5 




02C260 


104414 






ROMCLK 




NEXT UORD IS INSTRUCTION. 


ROMCLK 


PC -5304 


020262 


021125 






21005! 


<5*20> 


READ FROM IBUS REGISTER 5 






020264 


010005 






MOV 


R0.R5 


PUT EXPECTED IN R5 






020266 


116104 


000005 




MOVB 


5(R1).R4 


PUT "FOUND" INTO R4 






020272 


120504 






CMPB 


R5,R4 


DATA CORRECT? 






020274 


001401 






BEQ 


68) 


BR IF YES 






020276 


104005 






EMT 


5 


ERROR 






020300 


104401 




68»: 


SCOPl 




SU09-1? 






020302 


005100 






COM 


RO 


CHANGE TO FLOATING 1 






020304 


000241 






CLC 




CLEAR CARRY 






020306 


106100 






ROLB 


RO 


.SHIFT BIT IN RO 






020310 


001356 






BNE 


69) 


;IF RO-0 THEN DONE 






020312 


104400 






SCOPE 




(SCOPE THIS TEST 







TEST 46 *************************** 

;*MICR0 PROCESSOR IBUS REGISTER WRITE/READ TEST 
;*FLOAT A 1 THROUGH IBUS REGISTER 6 
s*FLOAT A 0 THROUGH IBUS REGISTER 6 

;:************************************************************** 



: TEST 46 



020314 


012737 


000046 


001226 


TST46: 


MOV 


«46.TSTN0 






020322 


012737 


020470 


001216 




nov 


#TST47.NEXT 






020330 


012737 


020350 


001220 




nov 


«64I.L0CK 




















:R1 CONTAINS BASE OMCll ADDRESS 


020336 


104412 








MSTCLR 




sMASTER CLEAR DMCll 




020340 


012702 


000006 






nov 


«6,R2 


:SAVE REGISTER ADDRESS FOR 


TYPEOUT 


020344 


012700 


000001 






nov 


«1.R0 


i START UITH BIT 0 




020350 








64): 










020350 


010061 


000004 






nov 


R0.4(R1} 


jPUT PATTERN INTO P0RT4 




020354 


104414 








ROnCLK 




iNEXT UORD IS INSTRUCTION. 


ROMCLK PC-5304 


020356 


122106 








12210016 


iMOV DATA TO IBUS REGISTER 


6 


020360 


104414 








ROnCLK 




:NEXT UORD IS INSTRUCTION. 


ROnCLK PC-5304 


020362 


021145 








21005! 


(6*20> 


(READ FROn IBUS REGISTER 6 




020364 


010005 








nov 


R0.R5 


iPUT EXPECTED IN R5 




020366 


116104 


000005 






nova 


5(R1),R4 


;PUT -FOUND* INTO R4 




020372 


120504 








cnPB 


R5.R4 


sDATA CORRECT? 




020374 


001401 








BEQ 


651 


iBR IF YES 




020376 


104005 








EMT 


5 


1 ERROR 




020400 


104401 






65): 


SCOPl 




}SU09«1? 




020402 


000241 








CLC 




(CLEAR CARRY 




020404 


106100 








ROLB 


RO 


(SHIFT BIT IN RO 




020406 


001360 








BNE 


64) 


(IF RO-0 THEN DONE 




020410 


012737 


020424 


001220 




MOV 


«67),L0CK 


(NEU SCOPl 




020416 


012700 


000001 






MOV 


♦l.RO 


(START UITH BIT 0 




020422 


005100 






69): 


COM 


RO 


(CHANGE TO FLOATING ZERO 




020424 








67): 











SliQ 72 
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020424 


010061 


000004 


MOV 


R0.4(R1) 


jPUT PATTERN INTO P0RT4 






020430 


104414 




ROMCLK 




iNEXT WORD IS INSTRUCTION. 


ROMCLK 


PC»5304 


020432 


122106 




122100 


•6 


:MOV DATA TO IBUS REGISTER 


6 




020434 


104414 




ROMCLK 




J NEXT WORD IS INSTRUCTION. 


ROMCLK 


PC -5304 


020436 


021145 




21005! 


<6*20> 


:READ FROM IBUS REGISTER 6 






020440 


010005 




MOV 


R0.R5 


;PUT EXPECTED IN R5 






020442 


116104 


000005 


MOVB 


5(R1).R4 


;PUT "FOUND" INTO R4 






020446 


120504 




CMPB 


R5.R4 


;DATA CORRECT? 






020450 


001401 




BEQ 


68$ 


:BR IF YES 






020452 


104005 




EMT 


5 


: ERROR 






020454 


104401 




68$: SCOPl 




.■SW09-1? 






020456 


005100 




COM 


RO 


; CHANGE TO FLOATING 1 






020460 


000241 




CLC 




: CLEAR CARRY 






020462 


106100 




ROLB 


RO 


5 SHIFT BIT IN RO 






020464 


001356 




BNE 


69$ 


sIF RO-O THEN DONE 






020466 


104400 




SCOPE 




; SCOPE THIS TEST 







*************************** TEST 47 *************************** 

*MICR0 PROCESSOR IBUS REGISTER WRITE/READ TEST 
♦FLOAT A 1 THROUGH IBUS REGISTER 7 
♦FLOAT A 0 THROUGH IBUS REGISTER 7 

: ************************************************************** 



; TEST 47 



AO 04 70 


012737 


000047 


001226 


TST47: 


MOV 


#47.TSTN0 










020476 


012737 


020644 


001216 




MOV 


#TST50,NEXT 










020504 


012737 


020524 


001220 




MOV 


«64$,L0CK 
























:R1 CONTAINS BASE OMCll ADDRESS 






020512 


104412 








MSTCLR 




:MASTER CLEAR DMCll 








020514 


012702 


000007 






MOV 


#7.R2 


.-SAVE REGISTER ADDRESS FOR 


TYPECw r 




020520 


012700 


000001 






MOV 


#1,R0 


; START WITH BIT 0 








020524 








64»: 














020524 


010061 


000004 






MOV 


R0.4(R1) 


sPUT PATTERN INTO P0RT4 








020530 


104414 








ROMCLK 




;NEXT WORD IS INSTRUCTION. 


ROMCLK 


PC 


-5304 


020532 


122107 








122100 


•7 


J MOV DATA TO IBUS REGISTER 


7 






020534 


104414 








ROMCLK 




;NEXT WORD IS INSTRUCTION. 


ROMCLK 


PC 


•5304 


020536 


021165 








21005! 


c7*20> 


jREAD FROM IBUS REGISTER 7 








020540 


010005 








MOV 


R0,R5 


{PUT EXPECTED IN R5 








020542 


116104 


000005 






MOVB 


5(R1}.R4 


jPUT "FOUND" INTO R4 








020546 


120504 








CMPB 


R5.R4 


sDATA CORRECT? 








020550 


001401 








BEQ 


65< 


(BR IF YES 








020552 


104005 








EMT 


5 


i ERROR 








020554 
020556 


104401 






65$: 


SCOPl 




tSU09-l? 








000241 








CLC 




i CLEAR CARRY 








020560 


106100 








ROLB 


RO 


i SHIFT BIT IN RO 








020562 


001360 








BNE 


64t 


iIF RO-O THEN DONE 








020564 


012737 


020600 


001220 




NOV 


#67 $, LOCK 


iNEU SCOPl 








020572 


012700 


000001 






MOV 


«1.R0 


t START UZTH BIT 0 








020576 


005100 






69$: 


COM 


RO 


i CHANGE TO FLOATING ZERO 








020600 








67 »: 














020600 


010061 


000004 






MOV 


R0.4CR1) 


iPUT PATTERN INTO P0RT4 








020604 


104414 








ROMCLK 




jNEXT WORD IS INSTRUCTION. 


ROMCLK 


PC 


•5304 


020606 


122107 








122100! 7 


;MOV DATA TO IBUS REGISTER 


7 






020610 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION. 


ROMCLK 


PC 


"5304 


020612 


021165 








21005! <7*20> 


sREAD FROM IBUS REGISTER 7 









Seo 75 
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37 



020614 


010005 








MOV 


R0.R5 


sPUT EXPECTED IN R5 


020616 


116104 


000005 






MOVB 


5(R1).R4 


;PUT "FOl^D" INTO R4 


020622 


120504 








CUPB 


R5.R4 


sDATA CORRECT? 


020624 


001401 








BEQ 


68$ 


:BR IP YES 


020626 


104005 








EMT 


5 


iERROR 


020630 


104401 






68*: 


SCOPl 




:SU09-1? 


020632 


005100 








COM 


RO 


{CHANGE TO FLOATING 1 


020634 


000241 








CLC 




sCLEAR CARRY 


020636 


106100 








R0L6 


RO 


t SHIFT BIT IN RO 


020640 


001356 








BNE 


69* 


sIF RO-0 THEN DONE 


020642 


104400 








SCOPE 




; SCOPE THIS TEST 












e*************************** TEST 50 *************************** 












;*MICRO 


PROCESSOR IBUS 


DUAL ADDRESS TEST 












;*URITE 


ALL IBUS REGISTERS WITH INCREMENTING PATTERN 












s*READ ALL IBUS REGISTERS TO VERIFY CORRECT ADDRESSING 












-:************************************************************** 












; TEST 


50 




020644 


012737 


000050 


001226 


TST50: 


MOV 


»50.TSTN0 




020652 


012737 


021072 


001216 




MOV 


♦TST51.NEXT 




020660 


012737 


020676 


001220 




MOV 


«1*.L0CK 


















sRl CONTAINS BASE DMCll ADDRESS 


020666 


104412 








MSTCLR 




:MASTER CLEAR DMCll 


020670 


012700 


000001 






MOV 


♦l.RO 


{START WITH A ONE 


020674 


005002 








CLR 


R2 


:R2 CONTAINS ADDRESS OF REGISTER 


020676 


010203 






1»: 


MOV 


R2.R3 


:R3-REGISTER ADDRESS 


020700 


010061 


000004 






MOV 


R0.4(R1) 


jWRITE DATA TO P0RT4 


020704 


042737 


000017 


020720 




BIC 


#17.5* 


; CLEAR ADDRESS FIELD OF INSTRUCTION 


020712 


050337 


020720 






BIS 


R3.5* 


:ADD ADDRESS TO INSTRUCTION 


020716 


104414 








ROMCLK 




iNEXT WORD IS INSTRUCTION. ROMCLK PC'5304 


020720 


122100 






5t: 


122100 




:MOVE DATA TO IBUS REGISTER 


020722 


006303 








ASL 


R3 


; SHIFT ADDRESS 


020724 


006303 








ASL 


R3 


j4 TIMES TO GET 


020726 


006303 








ASL 


R3 


;IT TO BITS 4-7 


020730 


006303 








ASL 


R3 


sOF NEXT INSTRUCTION 


020732 


042737 


000360 


020746 




BIC 


«360.6* 


: CLEAR ADDRESS FIELD 


020740 


050337 


020746 






BIS 


R3.6* 


:ADD ADDRESS TO INSTRUCTION 


020744 


104414 








ROMCLK 




;NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 


020746 


021005 






6$: 


21005 




{READ FROM IBUS REGISTER 


020750 


010005 








MOV 


R0,R5 


jPUT "EXPECTED" IN R5 


020752 


116104 


000005 






MOVB 


5CR1),R4 


;PUT "FOUND" IN R4 


020756 


120504 








CMPB 


RS.R4 


ilS DATA CORRECT? 


020760 


001401 








BEQ 


2* 


;BR IF YES 


020762 


104005 








EMT 


5 


.■DATA ERROR 


020764 


104401 






2*: 


SCOPl 




tSU09'l? 


020766 


005200 








INC 


RO 


J INCREMENT PATTERN 


020770 


005202 








INC 


R2 


{INCREMENT REGISTER ADDRESS 


020772 


022702 


000010 






CMP 


♦7*1. R2 sLAST 


ADDRESS DONE? 


020776 


001337 








BNE 


1* 


:BR IF NO 


021000 


012737 


021016 


001220 




MOV 


«3*.L0CK 


;NEU SCOPl 


021006 


012700 


000001 






MOV 


♦l.RO 


{RESTART PATTERN TO 1 


021012 


005002 








CLR 


R2 


{RESTART AT ADDRESS 0 


021014 


005003 








CLR 


R3 


{RESTART AT ADDRESS 0 


021016 


042737 


000360 


021032 


3«: 


BIC 


«360.7I 


(CLEAR ADDRESS FIELD OF INSTRUCTION 
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35 



SEQ 74 



38 



021024 050337 021032 

021030 104414 

021032 021005 

021034 010005 

021036 116104 000005 

021042 120504 

021044 001401 

021046 104005 

021050 104401 

021052 005200 

021054 005202 

021056 062703 000020 

021062 022702 000010 

021066 001353 

021070 104400 



7$; 



4$: 



BIS 

ROnCLK 

21005 

MOV 

MOVB 

CMPB 

BEQ 

EMT 

SCOPl 

INC 

INC 

ADD 

CMP 

BNE 

SCOPE 



R3.7$ 



R0.R5 

5(R1).R4 

R5.R4 

4$ 

5 

RO 
R2 

«20,R3 
♦7*1. R2 
Zi 



ADD ADDRESS TO INSTRUCTION 
NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 
READ FROM IBUS REGISTER 
PUT "EXPECTED" IN R5 
PUT "FOUND- IN R5 
DATA CORRECT? 
BR IF YES 

DUAL ADDRESSING ERROR 
SU09-1? 

INCREMENT PATTERN 
{NEXT ADDRESS 

:ADD 1 TO ADDRESS IN RSCSHIFTED 4 TIMES) 
:LAST ADDRESS DONE? 
:BR IF NO 
{SCOPE THIS TEST 



;*************4i************« TEST 51 *************************** 

:*MICRO PROCESSOR BR REGISTER TEST 
; ♦FLOAT A 1 THROUGH THE BR 
i*FL0AT A 0 THROUGH THE BR 

• *************************************************************** 

; TEST 51 



OP 107? 


012737 

VX£ f r 


000051 


001226 


TST51: 


MOV 


♦51.TSTN0 


OP 1100 

VC XX w 


012737 

VXK t 1 


021242 


001216 






4TST52.NE) 


021106 


012737 


021122 


001220 




MOV 


«64$.L0CK 


021114 


104412 








MSTCLR 




021116 


012700 


000001 






MOV 


♦l.RO 


021122 








64$: 






021122 


010061 


000004 






MOV 


R0,4(R1) 


021126 


104414 








ROMCLK 




021130 


120500 








120500 




021132 


104414 








ROMCLK 




021134 


061225 








061225 




021136 


010005 








MOV 


R0.R5 


021140 


116104 


000005 






MOVB 


5(R1),R4 


021144 


120504 








CMPB 


R5.R4 


021146 


001401 








BEQ 


65 » 


021150 


104006 








EMT 


6 


021152 


104401 






65): 


SCOPl 




021154 


000241 








CLC 




021156 


106100 








ROLB 


RO 


021160 


001360 








BNE 


641 


021162 


012737 


021176 


001220 




MOV 


«67*.L0CK 


021170 


012700 


000001 






MOV 


*1,R0 


021174 


005100 






69»: 


COM 


RO 


021176 








67»: 






021176 


010061 


000004 






MOV 


R0,4CR1} 


021202 


104414 








ROMCLK 




021204 


120500 








120500 




021206 


104414 








ROMCLK 




021210 


061225 








061225 




021212 


010005 








MOV 


R0.R5 


021214 


116104 


000005 






MOt/B 


5(R1),R4 



Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR DMCll 
START PATTERN WITH BITO 

; WRITE PATTERN IN P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

MOVE DATA TO THE BR REGISTER 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

MOVE BR TO PORT 5 

PUT "EXPECTED" IN R5 

PUT "FOUND- IN R4 
{DATA CORRECT? 
iBR IF YES 
sDATA ERROR 

t CLEAR CARRY 
(SHIFT BIT IN RO 
sDONE IF RO-0 
I NEW SCOPl 

I START PATTERN WITH BITO 
{CHANGE TO FLOATING ZERO 

{WRITE PATTERN IN P0RT4 

{NEXT WORD IS INSTRUCTION. ROMCLK PC'5304 

MOVE DATA TO THE BR REGISTER 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

MOVE BR TO PORT 5 

PUT "EXPECTED" IN R5 

PUT -FOUND" IN R4 
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SEQ 75 



021220 


120504 


CMPB 


R5.R4 


;DATA CORRECT? 


021222 


001401 


BEQ 


68 « 


J BR IF YES 


021224 


104006 


EMT 


6 


iOATA ERROR 


021226 


104401 


68*: SCOPl 






021230 


005100 


COM 


RO 


: CHANGE BACK TO A 


021232 


000241 


CLC 




! CLEAR C<\RRY 


021234 


106100 


ROLE 


RO 


! SHIFT BIT IN RO 


021236 


001356 


BNE 


69« 


sDQNE IF R0«0 


021240 


104400 


SCOPE 




; SCOPE THIS TEST 



ONE 



42 



TEST 52 *************************** 

;*SCRATCH PAD TEST 

;*FL0AT A 1 THROUGH EACH SCRATCH PAD LOCATION 
:*FLOAT A 0 THROUGH EACH SCRATCH PAD LOCATION 

• :************************************************************** 

; TEST 52 



021242 


012737 


000052 


001226 


TST52: 


MOV 


#52,TSTN0 


021250 


012737 


021510 


AA 4 O 4 f 

001216 




MOV 


♦TST53,NE) 


021256 


012737 


021274 


AA 4 O AA 

001220 




MOV 


464* .LOCK 


021264 


104412 








nSTCLK 




021266 


005002 








CLR 


DO 

K2 


021270 


A< ^7AA 

012 rOO 


AAAAA1 
000001 






nuv 


A1 DA 
wl ,K0 


0212 


AA ^ITf 

042737 


AAAA 1 7 
00001 t 


AO 1 T 1 A 

021314 


: 


DTP 

dIL 


wl ( 1 63 * 


A^ 4 T A^ 

021302 


03023 / 


AO 1 11 A 

021314 






QTC 


DO ilC 4 

K2 .03» 


A^ « T A£ 


A1 AA^I 
OlOOOl 


AAAAAA 

VU0U04 






nuv 


DA AfD^'\ 
KO •41K1 } 


A9 1 T 1 O 


1 AAA 1 A 
1044 14 








KUnLLIv 




A9 1 T 1 A 


I O T 4 AA 

1231UU 








1 OT1 AA 




OZlAlO 


042 1 H 


AAAA 1 7 
OOOUl r 


021332 




DTI* 


Ai "7 ati t 
wl f , bo« 


A'3 « T^A 


03023 r 


021332 








DO iL£4 

K2 •00» 




Xv"f*fX*t 












021332 


040600 






66t: 


040600 




021334 


104414 








ROMCLK 




021336 


061225 








061225 




021340 


010005 








MOV 


R0.R5 


021342 


116104 


000005 






MGVB 


5CR1).R4 


021346 


120504 








CMPB 


R5.R4 


021350 


001401 








BEQ 


67* 


021352 


104007 








EMT 


7 


021354 


104401 






671: 


SCOPl 




021356 


000241 








CLC 




021360 


106100 








ROLB 


RO 


021362 


001344 








BNE 


64* 


021364 


012737 


021400 


001220 




MOV 


469*, LOCK 


021372 


012700 


000001 






MOV 


41, RO 


021376 


005100 






73 »: 


COM 


RO 


021400 


042737 


000017 


021420 


69* : 


BIC 


417.70* 


021406 


050237 


021420 






BIS 


R2.70* 


021412 


010061 


000004 






MOV 


R0.4(R1) 


021416 


104414 








ROMCLK 




021420 


123100 






70$: 


123100 




021422 


042737 


000017 


021436 




BIC 


417,71* 


021430 


050237 


021436 






BIS 


R2.71* 


021434 


104414 








ROMCLK 





Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR OMCll 
START AT ADDRESS ZERO 
START WITH BITO 

CLEAR ADDRESS FIELD OF INSTRUCTION 
ADD ADDRESS TO INSTRUCTION 
URITE PATTERN TO P0RT4 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 
URITE SCRATCH P ADC ADDRESS IN R2) 
CLEAR ADDRESS FIELD OF INSTRUCTION 
ADD ADDRESS TO INSTRUCTION 
NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
MOV SP TO BR 

NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 

MOVE BR TO P0RT5 

PUT "EXPECTED- IN R5 

PUT "FOUND" IN R4 

DATA CORRECT 

BR IF YES 

DATA ERROR 

SU09-1? 

CLEAR CARRY 

SHIFT BIT IN RO 

DONE IF RO-0 

NEU SCOPl 

START UITH BITO 

CHANGE TO FLOATING ZERO 

CLEAR ADDRESS FIELD OF INSTRUCTION 

ADD ADDRESS TO INSTRUCTION 

URITE PATTERN TO P0RT4 

NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
URITE SCRATCH PAD( ADDRESS IN R2) 
CLEAR ADDRESS FIELD OF INSTRUCTION 
ADD ADDRESS TO INSTRUCTION 
NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 



SEQ 76 

C2DHC MACRO V04.00 27-JUN-85 13-16:37 PAGE 27-37 
OnCll SCRATCH PAD TESTS 



43 



021436 


040600 






71»: 


040600 




:MOV SP TO BR 


021440 


104414 








ROMCLK 




iNEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


021442 


061225 








061225 




:MOVE BR TO PORTS 


C21444 


010005 








HOV 


R0.R5 


{PUT "EXPECTED" IN R5 


021446 


116104 


000005 






MOVB 


5CR1).R4 


;PUT "FOUND" IN R4 


021452 


12C504 








CMPB 


R5,R4 


sOATA CORRECT 


021454 


001401 








BEQ 


72$ 


sBR IF YES 


021456 


104007 








EMT 


7 


iOATA ERROR 


021460 


104401 






72$: 


SCOPl 




:SM09»1? 


021462 


005100 








COM 


RO 


i CHANGE BACK TO A ONE 


021464 


000241 








CLC 




s CLEAR CARRY 


021466 


106100 








ROLB 


RO 


! SHIFT BIT IN RO 


021470 


001342 








BNE 


73$ 


:DONE IF RO-0 


021472 


012700 


000001 






MOV 


#1.R0 


•.RESTART AT BIT 0 


021476 


005202 








INC 


R2 


sNEXT SP ADDRESS 


021500 


022702 


000020 






CMP 


«20,R2 :LAST ADDRESS? 


021504 


001273 








BNE 


64$ 


:BR IF NO 


021506 


104400 








SCOPE 




(SCOPE THIS TEST 












TEST S3 *************************** 












i*SCRATCH PAD DUAL ADDRESSING TEST 












i*URITE 


AN INCREMENTING 


PATTERN IN ALL SP LOCATIONS 












•,*REAO 


ULL SP LOCATIONS 


TO VERIFY CORRECT ADDRESSING 












; : ************************************************************** 












; TEST 


53 




021510 


012737 


000053 


001226 


TST53: 


MOV 


♦53.TSTN0 




021516 


012737 


021732 


001216 




MOV 


#TST54.NEXT 




021524 


012737 


021542 


001220 




MOV 


*1$.L0CK 


















sRl CONTAINS BASE OMCll ADDRESS 


021532 


104412 








MSTCLR 




jMASTER CLEAR DMCll 


021534 


012700 


000001 






MOV 


#1.R0 


:START WITH A 1 


021540 


005003 








CLR 


R3 


; ADDRESS 0 


021542 


010302 






1»: 


MOV 


R3,R2 


:M0VE ADDRESS TO R2 


021544 


042737 


000017 


021564 




BIC 


♦17,2$ 


t CLEAR ADDRESS FIELD 


021552 


050237 


021564 






BIS 


R2.2$ 


;ADD ADDRESS TO INSTRUCTION 


021556 


010061 


000004 






HOV 


R0.4(R1) 


i WRITE PATTERN TO P0RT4 


021562 


104414 








ROnCLK 




;NEXT WORD IS INSTRUCTION. ROMCLK PC-S304 


021564 


123100 






2<: 


123100 




i WRITE SP( ADDRESS IN R2) 


021566 


042737 


000017 


021602 




BIC 


♦17.3$ 


; CLEAR ADDRESS FIELD OF INSTRUCTION 


021574 


050237 


021602 






BIS 


R2.3$ 


iADD ADDRESS TO INSTRUCTION 


021600 


104414 








ROMCLK 




(NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


021602 


060600 






3<: 


60600 




:MOV SP TO BR 


021604 


104414 








ROMCLK 




:NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


021606 


061225 








61225 




sMOV BR TO PORTS 


021610 


010005 








MOV 


R0.R5 


;PUT -EXPECTED" IN R5 


021612 


116104 


000005 






MOVB 


5(R1).R4 


■PUT "FOUND" IN R4 


021616 


120504 








CMPB 


R5.R4 


J DATA CORRECT? 


021620 


001401 








BEQ 


4$ 


sBR IF YES 


021622 


104007 








EMT 


7 


(DATA ERROR 


021624 


104401 






4»: 


SCOPl 




{SW09-0 


021626 


005200 








INC 


RO 


J INCREMENT PATTERN 


021630 


005203 








INC 


R3 


sNEXT ADDRESS 


021632 


022703 


000020 






CMP 


♦20, R3 


.•LAST ADDRESS DONE? 


021636 


001341 








BNE 


1$ 


.BR IF NO 



SEQ 77 

CZDflC MACRO V04.00 27-JUN-55 13:16:37 PAGE 27-38 
OMCll SCRATCH PAD TESTS 



47 



021640 


012737 


021654 


001220 




nov 


*5$.L0CK 


:NEU SCOPl 


021646 


012700 


000001 






nov 


«1,R0 


:RESTART PATTERN AT 1 


021652 


005003 








CLR 


R3 


iRESTART AT ADDRESS ZERO 


021654 


010302 






5*: 


MOV 


R3.R2 


:PUT ADDRESS IN R2 


021656 


042737 


000017 


021672 




BIC 


«17.6* 


:CLEAR ADDRESS FIELD OF INSTRUCTION 


021664 


050237 


021672 






BIS 


R2.6* 


:ADD ADDRESS TO INSTRUCTION 


021670 


104414 








ROMCLK 




{NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


021672 


060600 






61: 


60600 




sMOV SP TO BR 


021674 


104414 








ROMCLK 




:NEXT UORD TS INSTRUCTION, ROMCLK PC-S304 


021676 


061225 








61225 




;M0V BR TO PORTS 


021700 


010005 








MOV 


R0.R5 


:PUT "EXPECTED" IN R5 


021702 


116104 


000005 






M0V6 


5(R1).R4 


;PUT "FOUND" IN R4 


021706 


120504 








CMPB 


R5.R4 


:DATA CORRECT? 


021710 


001401 








BEQ 


7» 


iBR IF YES 


021712 


104007 








EMT 


7 


:SP ADDRESSING ERROR 


021714 


104401 






7»: 


SCGPl 




:SU09-1? 


021716 


005200 








INC 


RO 


{INCREMENT PATTERN 


021720 


005203 








INC 


R3 


sNEXT ADDRESS 


021722 


022703 


000020 






CMP 


«20.R3 :LAST 


ADDRESS DONE? 


021726 


001352 








BNE 


5* 


>BR IF NO 


021730 


104400 








SCOPE 




! SCOPE THIS TEST 












:*************************** TEST 54 *************************** 












:*INTERRUPT TEST 














2*TEST 


THAT DEVICE CAN 


INTERRUPT TO VECTOR A 












} :************************************************************** 












J TEST 


54 




021732 


012737 


000054 


001226 


TST54: 


NOV 


«54.TSTN0 




021' 40 


012737 


022026 


001216 




nov 


•TSTSS.NEXT 














iRl CONTAINS BASE DMCll ADDRESS 


021746 


000005 








RESET 




tBUS RESET 


021750 


005011 








CLR 


(Rl) 


(CLEAR RUN 


021752 


004537 


034642 






JSR 


R5.SETVEC 


tSET UP VECTORS 


021756 


022020 








31 




iXXO 


021760 


022016 








2» 




tXX4 


021762 


340 


340 






• BYTE 


340.340 


i LEVEL 7 


021764 


012737 


000340 


177776 


1«: 


nov 


*340.PS 


iPS - LEVEL 7 


021772 


012761 


000200 


000004 




nov 


•200,4(R1) 


i WRITE P0RT4 


022000 


104414 








RONCLK 




iNEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


022002 


121111 








121111 




iSET BR RQ IN IBUS* REG 11 


022004 


005037 


177776 






CLR 


PS 


(ALLOU INTERRUPT 


022010 


000240 








NOP 




iNO INTERRUPT 


022012 


104010 








EMT 


10 


022014 


000403 








BR 


4* 


sURONG VECTOR 


022016 


104011 






2*: 


EMT 


11 


022020 


012706 


001200 




3J: 


MOV 


•STACK. SP 


{RESET STACK 


022024 


104400 






4): 


SCOPE 




{SCOPE THIS TEST 



40 

;*************************** TEST 55 *************************** 

{♦INTERRUPT TEST 

{♦TEST THAT DEVICE CAN INTERRUPT TO VECTOR B 

t :************************************************************** 



SEQ 78 

CZOHC MACRO V04.00 27-JUN-85 13:16:37 PAGE 27-39 
MCll INTERRUPT TESTS 

! TEST 55 



OZZOZO 


At 






1 9 1 33 S 




f 1 a InU 




022094 


At 

01Z797 


A99t 


AAff 9ff& 
UVlslO 




nuv 


ATGT^ MrVT 


SKI cum nxno Dnac UnUxX MUvnCdd 


02Z042 














• MAQTFD ri TAB FlHri 1 


022044 


004537 


094O4Z 






ICO 


n3 t9£ 1 VCb 


• GCT IIP ucrTnOG 


A93ACA 


A99t 








9t 
£9 




t AAV 












T* 

J* 




f A A^ 












RYTP 








nt 97X7 
vX£l 91 


AAA'S AA 


1 7777#» 




Hnv 


AYAO PS 


•PS > LFVPL 7 


OeeUD# 






AAnnnA 




Hnu 




•URTTF PnPTA 


A0^A70 


10*#In 












#nbA 1 Nwnil XO XHO 1 nVU 1 xun* nUnULIV rl«*3dv^ 


0?2074 


121111 








121111 




;SET BR RQ IN IBUS* REG 11 


022076 


005037 


177776 






CLR 


PS 


;ALLOU INTERRUPT 


022102 


000240 








NOP 






022104 


104010 








EMT 


10 


tNO INTERRUPT 


022106 


000403 








BR 


41 




022110 


104011 






21: 


EHT 


11 


iURONG VECTOR 


022112 


012706 


001200 




3t: 


MOV 


♦STACK, SP 


sRESET STACK 


022116 


104400 






41: 


SCOPE 




! SCOPE THIS TEST 



49 

I*************************** TEST 56 *************************** 

i*PRIORITY INTERRUPT TESTS 

i*SET PS TO ALL BR LEVELS EQUAL OR GREATER THAN 

i*THE OnCll LEVEL. VERIFY THAT DHCll DOES NOT INTERRUPT 

,:************************************************************** 













1 TEST 


56 




022120 


012737 


000056 


001226 


TST56: 


HOV 


•56.TSTN0 




022126 


012737 


022240 


001216 




MOV 


♦TST57.NEXT 


















iRl CONTAINS BASE OHCll ADDRESS 


022134 


104412 








nSTCLR 




tHASTER CLEAR OHCll 


022136 


012702 


000340 






HOV 


•340. R2 


iPUT LEVEL 7 IN R2 


022142 


010237 


177776 






nov 


R2.PS 


J SET PRIORITY TO 7 


022146 


013700 


001366 






HOV 


STATl.RO 


iGET BR LEVEL OF DHCll 


022152 


006200 








ASR 


RO 


1 SHIFT RO 4 TIMES 


022154 


006200 








ASR 


RO 


tTO GET PROPER LEVEL 


022156 


006200 








ASR 


RO 




022160 


006200 








ASR 


RO 




022162 


042700 


177437 






BIG 


♦177437.ro 


(CLEAR UHUANTED BITS 


022166 


004537 


034642 






JSR 


R5,SETVEC 


iSET UP VECTORS 


022172 


022234 








2» 




lA VECTOR 


022174 


022234 








21 




iB VECTOR 


022176 


340 


340 






.BYTE 


340.340 


iPRIORITY 7 


022200 


012761 


000200 


000004 


41: 


HOV 


•200.4(R1} 


iLOAD P0RT4 


022206 


104414 








ROnCLK 




(NEXT UORD IS INSTRUCTION. RQHCLK PC-5304 


022210 


121111 








121111 




iSET BR REQUEST 


022212 


010237 


177776 




51: 


HOV 


R2.PS 


iPUT LEVEL IN R2 IN PS 


022216 


000240 








NOP 






022220 


020002 








CHP 


R0.R2 


lis PRESENT PS LEVEL - TO OHC LEVEL 


022222 


001403 








BEQ 


1» 


iBR IF YES 


022224 


162702 


000040 






SUB 


•40. R2 


iNO GET NEXT LOUER LEVEL IN R2 


022230 


000770 








BR 


51 


lANO CONTINUE WITH TEST 


022232 


104400 






It: 


SCOPE 




iSCOPE THIS TEST 



CZmC MACRO V04.00 27'J\M-$5 19:16:37 PMX. 27-40 
OHCll INTERRUPT TESTS 



SEQ 79 



50 



0^2234 104020 
022236 000002 



2»: 



PIT 
RTI 



20 



:ERROR UNEXPECTED INTERRUPT 



,*************************** TEST 57 
:*PRIORITY INTERRUPT TESTS 

s*S£T PS TO ALL B« LEVELS LESS THAN THE DMCll 
{•VERIFY THAT THE OHCll WILL INTERRUPT 



-EVEL 













: TEST 


57 




0222*0 


012737 


000057 


001226 


TST57; 


• 

HOV 


•57, TSTNO 




022246 


012737 


022404 


001216 




nOV 


ATCT£A UPVT 

•TST60.NEXT 


















nl CONTAINS BASE DMCll ADDRESS 


022254 


104412 








nSTCLR 




nWSTER CLEAR DHCll 




012702 








MAI/ 

nuv 




rUI LcVcL f IN R2 




At A^ 

010297 


1 f f 1 fO 






MAU 

nuv 


DC 


CCT DDTAOTTV TA 1 

SC. 1 rKi.UnllT lU r 




013700 


AA 1 






MAU 


STATl.RO 


GET BR LEVEL OF DMCll 




OUOeUO 








ACD 


RO 


SHIFT RO 4 TIMES 


SJCC.C /4 


ooecOO 








AQQ 


RO 


TO GET PROPER LEVEL 


yjc.cd IV 












RO 














AQQ 


RO 








1 f /^O / 






oir 


♦177437.ro 


CLEAR UNWANTED BITS 




A1 AAA3 








MHU 
nuv 


R0.R2 


PUT DMC LEVEL IN R2 














♦40. R2 


GET NEXT LOUER LEVEL IN R2 












IQQ 


R5.SETVEC 


SET UP VECTORS 












C 9 




A VECTOR 


A05»55 










Tt 




B VECTOR 


Ad9T0A 












340.340 


.PRIORITY 7 




m 37*11 

vie 'Di 


AAApAA 








♦200.4(R1) 


LOAD P0RT4 




iWnn in 










sNEXT WORD IS INSTRUCTION. ROMCLK 




IPl 1 11 








121111 


:SET BR REQUEST 


022340 


010237 


177776 




5$: 


MOV 


R2.PS :PUT LEVEL IN R2 IN PS 


022344 


000240 








NOP 






022346 


104C10 








EMT 


10 


[ERROR. NO INTERRUPT 


022350 


022702 


000140 




6«: 


CMP 


♦140. R2 


ilS IT DOWN TO LEVEL 3 YET? 


022354 


001403 








PEQ 


1$ 


i YES. DMC DID NOT INTERUPT, ERROR 


022356 


162702 


000040 






SUB 


♦40. R2 (PUT NEXT LOUER LEVEL IN R2 


022362 


000761 








BR 


4$ 


(CONTINUE TEST 


022364 


104400 






1*: 


SCOPE 


{SCOPE THIS TEST 


022366 


012716 


022350 




2$: 


MOV 


♦6I.CSP) 


;SET UP FOR RTI 


022372 


000002 








RTI 






022374 


104011 






3*: 


EMT 


11 


(ERROR. WRONG VECTOR 


022376 


012716 


022350 






MOV 


♦6<.(SP? 


(SET UP FOR RTI 


022402 


000002 








RTI 







54 



TEST 60 A************************** 

s*NPR TEST 

!*TEST OF DATO, 1 WORD ^ROM UPROC TO 11 MEMORY 

: : ********************************** 



022404 012737 000060 001226 TST60: 
022412 012737 022510 001216 



! TEST 60 

MOV ♦eO.TSTNO 
MOV ♦TSTfel.NEXT 



CZyC 1ACR0 V04.00 27-J<JN'85 15:16:37 PAGE 27-41 
OMCll NPR TESTS 



SEQ 80 



022420 


000005 






RESET 




BUS RESET 


022422 


005011 






CLR 


(Rl) 


CLEAR RUN 


022424 


005061 


000004 




CLR 


4CR1) 


CLR P0RT4 


0224S0 


004537 


034664 




JSR 


R5.NPRSET 


SET UP IBUS REG 0 7 


022434 


oooooc 






0 




IN DATA 


022436 


177777 






1 




OUT DATA 


022440 


022S06 






3S 




IN 6A 


022442 


022504 






2* 




OUT BA 


022444 


005037 


022504 




CLR 


2i 


CLEAR 2$ 


022450 


012761 


000021 


000004 


HOV 


*21,4(R1) 


URITE P0RT4 


022456 


104414 






ROHCLK 




NEXT WORD IS INSTRUCTION. 


022460 


121110 






121110 




SET NPR BITS IN IBUS* REG 


022462 


000240 






NOP 






022464 


012705 


177777 




MOV 


#-l.R5 


PUT -EXPECTED' IN R5 


022470 


013704 


022504 




HOV 


2$.R4 


PUT "FOUND" IN R4 


022474 


020504 






CUP 


R5.R4 


DATA CORRECT? 


022476 


001401 






BEQ 


4» 


BR IF YES 


022500 


104012 






EMT 


12 


ERROR NPR FAILED 


022502 


104400 




4»: 


SCOPE 




.SCOPE THIS TEST 


022S04 


000000 




21: 


0 




iOUT 6 A 


022506 


000000 




31: 


0 




;IN BA 



55 



Rl CONTAINS BASE DMCll ADDRESS 



11 



TEST 61 *************************** 

:*NPR TEST 

5*TEST OF DATI. 1 WORD FROM 11 MEMORY TO UPROC 

; : ************************************************************** 



TEST 61 



022510 012737 000061 001226 TST61: 

022516 012737 022624 001216 

022524 104412 

022526 005061 000004 

022532 004537 034664 

022536 000000 

022540 177777 

022542 022622 

022544 022620 

022546 012737 177777 022622 

022554 012761 000001 000004 

022562 104414 

022564 121110 

022566 000240 

022570 012705 177777 

022574 104414 

022576 C21004 

022600 104414 

022602 021025 

022604 016104 000004 

022610 020504 

022612 001401 

022614 104012 

022616 104400 4t: 

022620 000000 2»: 



MOV 
MOV 

MSTCLR 

CLR 

JSR 

0 

-1 

3* 

2< 

MOV 

MOV 

ROMCLK 

121110 

NOP 

MOV 

ROMCLK 

021004 

ROMCLK 

021025 

MOV 

CMP 

BEQ 

EMT 

SCOPE 

0 



•61.TSTN0 
#TST62,NEXT 



4(R1) 
R5, NPR SET 



♦-1.3* 
•1.4(R1) 



•-1.R5 



4(R1).R4 

R5.a4 

4$ 

12 



Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR DMCll 
CLR P0RT4 

SET UP IBUS REG 0 7 

IN DATA 

OUT DATA 
tIN BA 
{OUT BA 

.-PUT DATA IN 3$ 
t URITE P0RT4 

sNEXT WORD IS INSTRUCTION. ROMCLK PC>5304 
:SET NPR BITS IN IBUS* REG 11 

PUT "EXPECTED" IN R5 

NEXT WORD IS INSTRUCTION. ROMCLK PC»5304 

MOVE IN DATA LOU BYTE TO P0RT4 

NEXT UORD IS INSTRUCTION. ROMCLK PC '5304 

MOVE IN DATA HIGH BYTE TO PORTS 

PUT "FOUND" IN R4 

DATA CORRECT? 

BR IF YES 

ERROR NPR FAILED 

SCOPE THIS TEST 

OUT BA 
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SEQ 81 



56 



022622 000000 



3»: 



:IN BA 



J*************************** TEST 62 *************************** 

. tffpf{ TEST 

i*TEST OF DATOB. 1 BrTE FROM UPROC TO 11 MEMORY 
: TEST 62 



57 



022624 


012737 


000062 


001226 


TST62: 


MOV 


♦62.TSTN0 




022632 


012737 


022726 


001216 




MOV 


♦TST63.NEXT 
















iRl CONTAINS BASE DMCll ADDRESS 


022640 


104412 








MSTCLR 




MASTER CLEAR DMCll 


022642 


005061 


000004 






CLR 


4(R1) 


CLR P0RT4 


022646 


004537 


034664 






JSR 


R5.NPRSET 


SET UP IBUS REG 0 7 


022652 


000000 








0 




IN DATA 


022654 


177777 








-1 




OUT DATA 


022656 


022724 








3» 




IN BA 


022660 


022723 








2»»1 


iOUT BA 




022662 


005037 


022722 






CLR 


2S 


CLEAR 2$ 


022666 


012761 


000221 


000004 




MOV 


4221, 4(R1) 


WRITE P0RT4 


022674 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


022676 


121110 








121110 




SET NPR BITS IN IBUS* REG 11 


022700 


000240 








NOP 






022702 


012705 


177400 






MOV 


♦1 77400. R5 


:PUT "EXPECTED" IN R5 


022706 


013704 


022722 






MOV 


2$.R4 


PUT "FOUND" IN R4 


022712 


020504 








CMP 


R5.R4 


DATA CORRECT? 


022714 


001401 








BEQ 


4$ 


BR IF YES 


022716 


104012 








EMT 


12 


ERROR NPR FAILED 


022720 


104400 






4$: 


SCOPE 




SCOPE THIS TEST 


022722 


000000 






2»: 


0 




OUT BA 


022724 


000000 






3»: 


0 




ilN BA 



TEST 63 *************************** 

{*TEST OF EA BITS 16 AND 17 

s*00 A DATO TO AN ADDRESS USING OUT BA BITS 16 AND 17 
;* VERIFY CORRECT RESULTS 

} TEST 63 



022726 
022734 

022742 
022744 

022752 
022760 
022764 
022766 
022770 
022772 
022774 
023002 
023004 



012737 000063 001226 TST63: 
012737 023064 001216 

104412 

013737 001412 022772 
013737 001412 022770 
004537 034664 
000000 
125252 

000000 2$ : 

000000 1$: 
012761 000014 000004 
104414 
121111 



nov 
nov 

MSTCLR 

MOV 

MOV 

JSR 

0 

125252 

0 

0 

MOV 

ROMCLK 

121111 



•63.TSTN0 
♦TST64.NEXT 



0MP04.1) 
DMP04,2» 
R5.NPRSET 



«14.4(R1) 



iRl CONTAINS BASE DMCll ADDRESS 
I MASTER CLEAR DMCll 

USE SEL4 FOR ADDRESS 

USE SEL4 FOR ADDRESS 

LOAD BA AND DATA 

IN DATA 

OUT DATA 

IN BA 

OUT BA 

LOAD SEL 4 UITH OUT BA16 AND 17 

NEXT UORD IS INSTRUCTION, ROMCLK PC-5304 

SET OUTBA 16 AND 17 



CZOUC HACRO V04.00 
DUCll NPR TESTS 



27-JUN-85 13:16:37 PAGE 27 43 



SEQ 82 



59 



023006 


012761 


000021 


000004 


MOV 


♦21.4(R1) 


LOAD SEL4 


023014 


012761 


121110 


000006 


MOV 


«121110.6(R1) 


PUT INSTRUCTION IN SEL6 


023022 


012711 


003000 




MOV 


«BIT9!BIT10.(R1) 


SET CROMI AND CROMO!! 


023026 


052711 


000400 




BIS 


«BIT8.(R1) 


CLOCK IT! 


023032 


000240 






NOP 




UAIT FOR NPR 


023034 


012705 


121110 




MOV 


«121110.R5 


PUT "EXPECTED" IN R5 


023040 


104414 






ROMCLK 




NEXT UORD IS INSTRUCTION. 


023042 


021044 






021044 




MOVE OUT DATA LB TO SEL4 


023044 


104414 






ROMCLK 




NEXT WORD IS INSTRUCTION. 


023046 


021065 






021065 




MOVE OUT DATA HB TO SEL5 


023050 


016104 


000004 




MOV 


4(R1),R4 


iPUT "FOUND" IN R4 


023054 


020504 






CMP 


R5.R4 


CORRECT RESULTS ? 


023056 


001401 






BEQ 


3* 


BR IF YES 


023060 


104012 






EMI 


12 


ERROR BA 16 AND 17 FAILED 


023062 


104400 




3«: 


SCOPE 


! SCOPE THIS TEST 



ROMCLK PC -5304 
ROMCLK PC -5304 



59 



TEST 64 *************************** 

s*TEST OF EA BITS 16 AND 17 

:*D0 A DATI USING IN BA BITS 16 AND 17 

{♦VERIFY CORRECT RESULTS 

; 

s TEST 64 



023064 


012737 


000064 


001226 


023072 


012737 


023210 


001216 


023100 


104412 






023102 


013737 


001412 


023130 


023110 


013737 


001412 


023126 


023116 


004537 


034664 




023122 


000000 






023124 


125252 






023126 


000000 






023130 


000000 






023132 


012761 


000015 


000004 


023140 


012761 


121110 


000006 


023146 


012711 


003000 




023152 


052711 


000400 




023156 


000240 






023160 


012705 


121110 




023164 


104414 






023166 


021004 






023170 


104414 






023172 


021025 






023174 


016104 


000004 




023200 


020504 






023202 


001401 






023204 


104012 






023206 


104400 







2$: 
1): 



3»; 



MOV 
MOV 

MSTCLR 

MOV 

MOV 

JSR 

0 

125252 

0 

0 

MOV 

MOV 

MOV 

BIS 

NOP 

MOV 

ROMCLK 

021004 

ROMCLK 

021025 

MOV 

CMP 

BEQ 

EMT 

SCOPE 



♦64.TSTN0 
#TST65.NEXT 



DMP04.1$ 
DMP04.2» 
R5.NPRSET 



#15,4(R1) 
«121110,6(R1) 
06IT9!BIT10.(R1) 
«eiT8.CRl) 

«121110,R5 



4(R1),R4 
R5.R4 

3» 
12 



Rl CONTAINS BASE DMCll ADDRESS 

MASTER CLEAR DMCll 

USE SEL4 FOR ADDRESS 

USE SEL4 FOR ADDRESS 

LOAD BA AND DATA 

IN DATA 

OUT DATA 

IN BA 

OUT BA 

LOAD SEL4 

I PUT INSTRUCTION IN SEL6 
SET CROMI AND CROMO!! 
CLOCK IT! 
WAIT FOR NPR 
PUT "EXPECTED* IN R5 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

MOVE IN DATA LB TO SEL4 

NEXT WORD IS INSTRUCTION. ROMCLK PC»5304 
(MOVE IN DATA HB TO SEL5 
:PUT "FOUND" IN R4 
(CORRECT RESULTS ? 
:BR IF YES 

: ERROR BA 16 AND 17 FAILED 
•SCOPE THIS TEST 



TEST 65 *************************** 
:*NPR NON-EXISTENT MEMORY TEST 
i*DO A DATO TO A NON-EXISTENT ADDRESS 
t*VERIFY THAT THE NON-EXISTENT BIT SET IN IBUS REG 11 
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SEQ 63 



*4 ************* 4 ******************** ********** 



TEST 65 



60 



023210 012737 000065 001226 TST65: 

023216 012737 023320 001216 

023224 104412 

023226 004537 034664 

023232 000000 

023234 000000 

023236 177320 

023240 177320 

023242 012761 000014 000004 

023250 104414 

023252 121111 

023254 012761 000021 000004 

023262 104414 

023264 121110 

023266 000240 

023270 104414 

023272 121225 

023274 012705 000001 

023300 116104 000005 

023304 042704 177776 

023310 020504 

023312 001401 

023314 104012 

023316 104400 1$: 



023320 012737 000066 001226 TST66: 

023326 012737 023426 001216 

023334 104412 

023336 004537 034664 

023342 000000 

023344 000000 

023346 177320 

023350 177320 

023352 005061 000004 

023356 104414 

023360 121111 

023362 012761 000015 000004 

023370 104414 

023372 121110 

023374 000240 

023376 104414 

023400 121225 



nov 
nov 

MSTCLR 
JSR 
0 
0 

177320 

177320 

MOV 

ROMCLK 

121111 

MOV 

ROMCLK 

121110 

NOP 

ROMCLK 

121225 

MOV 

MOVB 

BIC 

CMP 

BEQ 

EMT 

SCOPE 



♦65.TSTN0 
*TST66.NEXT 



R5. NPR SET 

«14.4(R1) 
♦21.4CR1) 



♦I.R5 

5(R1).R4 

#177 776, R4 

R5.R4 

U 

12 



:R1 CONTAINS BASE OMCll ADDRESS 
{MASTER CLEAR DMCll 
:LOAD IBUS REGISTERS 0-7 

IN DATA 

OUT DATA 

IN BA 

OUT BA 

SET OUT BA BITS 16*17 IN P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC«5304 

SET OUTBA 16 AND 17 

SET NPR REQUEST BITS IN P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

MOV IBUS* 4 TO IBUS* IC 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 

MOV IBUS*11 TO IBUS*5 

PUT "EXPECTED" IN R5 

PUT "FOUND" IN R4 

CLEAR UNWANTED BITS 

DATA CORRECT? 

BR IF YES 

ERROR NON-EXISTENT MEM BIT FAILED TO SET 
SCOPE THIS TEST 



;*************************** TEST 66 *************************** 

;*NPR NON-EXISTENT MEMORY TEST 

i*DO A DATI FROM A NON-EXISTENT ADDRESS 

!*VERIFY THAT THE NON-EXISTENT BIT SET IN IBUS REG 11 

;:************************************************************** 

! TEST 66 



nov 
nov 

MSTCLR 
JSR 
0 
0 

177320 
177320 
CLR 

ROMCLK 
121111 
MOV 

ROMCLK 

121110 

NOP 

ROMCLK 

121225 



466.TSTN0 
*TST67,NEXT 



R5.NPRSET 



4(R1) 



♦15,4(R1) 



>R1 CONTAINS BASE DMCll ADDRESS 

:MASTER CLEAR DMCll 

(LOAD IBUS REGISTERS 0-7 

:IN DATA 

;OUT DATA 

:IN BA 

sOUT BA 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

CLEAR NON-EXISTENT BIT 

SET NPR REQUEST BITS IN P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

MOV IBUS* 4 TO IBUS* 10 

:NEXT WORD IS INSTRUCTION, ROMCLK PC -5304 
{MOV IBUS* 11 TO IBUS*S 
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SEQ 84 



61 



023402 012705 000001 

023406 116104 000005 

023412 042704 177776 

023416 020504 

023420 001401 

023422 104012 

023424 104400 



1»: 



nov 

MOVB 
BIC 

CUP 

BEQ 
E«T 
SCOPE 



01. R5 

5(R1).R4 

*177776.R4 

R5.R4 

1$ 

12 



PUT "EXPECTED" IN R5 
PUT "FOUND' IN R4 
CLEAR UNWANTED BITS 
DATA CORRECT? 
BR V" YES 

ERROR NON-EXISTENT MEM BIT FAILED TO SET 
SCOPE THIS TEST 



*************************** TEST 67 *************************** 

*NPR TEST 

*USING OATO. NPR A BINARY COUNT (0-377 ) 
*FROM MICRO-PROCESSOR TO ALL AVAILABLE MEMORY 

:************************************************************** 

TEST 67 



023426 


012737 


000067 


001226 


TST67: 


MOV 


#67.TSTN0 




023434 


012737 


A A /\ A /W 

000003 


AA i A A 

001222 




MOV 


«3,IC0UNT 




023442 


012737 


023624 


AA 4 A 4 £ 

001216 




MOV 


♦TST70,NEXT 


Rl CONTAINS BASE DMCll ADDRESS 


023450 


104412 








M5TCLR 




MASTER CLEAR DMCll 


023452 


AAC 

005037 


02 3d 22 








5» 


START FLAG AT 0 


023456 


AAf A AA 

005000 








CLR 


RO 


DATA 


023460 


012702 


036566 






MOV 


4C0RMAX.R2 


ADDRESS 


Vil 








It. 








0234o4 


OlUOd / 


Ueo3 14 






nuv 


R0.2$ 


LOAD DATA 


023470 


010237 


A^TCOA 

OeSSeO 






nuv 


R2.4) 


LOAD BA 


0234 /4 


OderUe 


AAAAA4 






DTT 
Dl 1 


»6IT0.R2 


IS BA ODD? 


A^TC AA 

023500 


001402 








Dcn 


.♦6 


BR IF NO 


023502 


AAATT7 








CLJ AD 


2$ 


IF ODD PUT DATA IN HI -BYTE 


0235OO 


U0433/ 


03W04 






ICD 


R5,NPRSET 


LOAD NPR REGISTERS 


023512 


AAAAAA 








A 




IN DATA 


023514 


AAAAAA 






2* : 


A 




OUT DATA 


0235 lo 


AAAAAA 








A 
V 




IN BA 




000000 

www 






4$ . 


0 




OUT BA 


023522 


105012 








CLRB 


(R2) 


CLEAR MEMORY LOCATION 


023524 


012761 


000221 


000004 




MOV 


«221.4(R1) 


LOAD P0RT4 


023532. 


104414 








ROMCLK 


(NEXT WORD IS INSTRUCTION, ROMCLK 


023534 


121110 








121110 




sOO THE NPR 


023536 


000240 








NOP 






023540 


010005 








MOV 


R0.R5 .-PUT "EXPECTED" IN R5 


023542 


111204 








novB 


(R2).R4 


[PUT "FOUND" IN R4 


023544 


120504 








CHPB 


R5,R4 :IS DATA CORRECT? 


023546 


001401 








BEQ 


3» 


,BR IF YES 


023550 


104021 








EMT 


21 


; ERROR. DATA INCORRECT 


023552 


104401 






3»: 


SCOPl 






023554 


005200 








INC 


RO 


NEXT CHARACTER 


023556 


042700 


177400 






BIC 


♦177400. RO 


USE ONLY LOU BYTE 


023562 


005737 


023622 






TST 


5» 


HAS MAX MEMORY BEEN REACHED YET? 


023566 


001402 








BEQ 


6» 


BR IF NO 


023570 


005700 








TST 


RO 


DONE PATTERN? 


023572 


001412 








BEQ 


7$ 


BR IF YES 


023574 


005202 






6»: 


INC 


R2 


INC BA 


023576 


023702 


001304 






CMP 


MEm.IM.R2 


REACHED MEMORY LIMIT YET? 


023602 


001330 








BNE 


1$ 


BR IF NOT 


023604 


012702 


036566 






MOV 


*C0RMAX,R2 


RESTART BA AT FIRST ADDRESS 
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023610 012737 177777 023622 

023616 000722 

023620 104400 71 : 

023622 000000 51 : 



rtov 

Bfi II 
SCOPE 
0 



♦-1.5I 



65 



66 



SEQ 85 



:SET FLAG TO END TEST AT END 0^ DATA PATTERN 

: CONTINUE 

; SCOPE THIS TEST 

sTHIS LOCATION IS A FLAG. IT STARTS AT 0. 
I AND IS SET TO -1 WHEN LAST MEtlORY ADDRESS 
:IS USED. TEST IS THEN ENDED WHEN PATTERN IS FINISHED 



**************************** TEST 70 *************************** 
:*MAIN MEMORY TEST 

.-AFLOAT A 1 THROUGH ALL MAIN MEMORY LOCATIONS 













; TEST 


70 






023624 


012737 


000070 


001226 


TST70: 


• 

MOV 


♦70.TSTN0 






023632 


012737 


023752 


001216 




MOV 


♦T ST 71, NEXT 






023640 


012737 


023656 


001220 




MOV 


4651 .LOCK 
















:R1 CONTAINS BASE DMCll ADDRESS 




023646 


104412 








MSTCLR 




iMASTER CLEAR DMCll 




023650 


005002 








CLR 


R2 


i START UITH ADDRESS 0 




023652 


012700 


OOCOOl 




1* : 


MOV 




i START UITH BIT 0 




023656 


042737 


000377 


023672 


651: 


BIC 


♦377, 66 ♦ 


:CLEAR ADDRESS FIELD OF INSTRUCTION 


023664 


050237 


023672 






BIS 


R2,66t 


;ADD ADDRESS TO INSTRUCTION 




023670 


104414 








ROMCLK 




:NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


023672 


010000 






66$: 


f\4 /\/V f\f\ 

010000 




sLOAD MAR UITH ADDRESS IN R2 




023674 


010061 


000004 






nov 


OA AfO\\ 


sURITE PATTERN IN P0RT4 




023700 


104414 








ROMCLK 




{NEXT UORD IS INSTRUCTION. ROMCLK 


PC -5304 
















•.MOVE P0RT4 TO MEMORY 




023704 


104414 








ROMCLK 




;NEXT UORD IS INSTRUCTION, ROMCLK 


PC -5304 


023706 


040620 








040620 




sMOVE MEMORY TO BR 




023710 


104414 








ROMCLK 




•.NEXT UORD IS INSTRUCTION, .OMCLK 


PC -5304 


023712 


061225 








61225 




;MOVE BR TO PORTS 




023714 


010005 








MOV 


R0,R5 


J PUT "EXPECTED" IN R5 




023716 


116104 


000005 






MGVB 


5(R1),R4 


;PUT "FOUND" IN R4 




023722 


120504 








CMPB 


R5.R4 


;DATA CORRECT? 




023724 


0014C1 








BEQ 


67 1 


:BR IF YES 




023726 


104013 








EMT 


13 


iOATA ERROR 




023730 


104401 






67): 


SCQPl 




{SU09-1? 




023732 


000241 








CLC 




i CLEAR CARRY 




023734 


106100 








ROLE 


RO 


; SHIFT BIT IN RO 




023736 


001347 








BNE 


65) 


iDONE IF RO-0 




023740 


005202 








INC 


R2 


:NEXT ADDRESS 




023742 


022702 


000400 






CMP 


«400.R2 


iLAST ADDRESS 




023746 


001341 








BNE 


1) 


sBR IF NO 




023750 


104400 








SCOPE 




t SCOPE THIS TEST 





g *************************** TEST 71 *************************** 

(*MAIN MEMORY TEST 

i*FLOAT A 0 THROUGH ALL MAIN MEMORY LOCATIONS 

•;**********************«*************************************** 



023752 012737 000071 001226 TST71: 
023760 012737 024104 001216 



TEST 71 



MOV 
MOV 



♦71,TSTN0 
♦TST72.NEXT 
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023766 012737 024006 001220 



67 



023774 

023776 

024000 

024004 

024006 

024014 

024020 

024022 

024024 

024030 

024032 

024034 

024036 

024040 

024042 

024044 

024046 

024052 

024054 

024056 

024060 

024062 

024064 

024066 

024070 

024072 

024074 

024100 

024102 



104412 

005002 

012700 000001 
005100 



1»: 
64>: 

042737 000377 024022 65*: 

050237 024022 

104414 

010000 66 >: 

010061 000004 

104414 

122500 

104414 

040620 

104414 

061225 

010005 

116104 000005 
120504 
001401 
104013 

104401 67*: 

005100 

000241 

106100 

001345 

005202 

022702 000400 

001337 

104400 



nov 

MSICLR 
CLR 

nov 

COM 

BIC 

BIS 

ROMCLK 

010000 

MOV 

ROMCLK 

122500 

ROMCLK 

040620 

ROMCLK 

61225 

MOV 

MOVB 

CMPfl 

BEQ 

EMT 

SCOPl 

COM 

CLC 

ROLB 

BNE 

INC 

CMP 

BNE 

SCOPE 



«65*.L0CK 



R2 

«1,R0 
RO 

«377.66* 
R2.66* 



R0.4(R1) 



R0.R5 

5(R1).R4 

R5.R4 

67* 

13 

RO 

RO 

64* 

R2 

#400. R2 
1* 



Rl CONTAINS BASE DMCll ADDRESS 

MASTER CLEAR DMCll 

START WITH ADDRESS 0 

START WITH BIT 0 

CHANGE TO FLOATING 0 

i CLEAR ADDRESS FIELD OF INSTRUCTION 
{ADD ADDRESS TO INSTRUCTION 
tNEXT UORD IS INSTRUCTION, ROMCLK PC-5304 
iLOAD MAR WITH ADDRESS IN R2 
:URITE PATTERN IN P0RT4 

iNEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
;MOVE P0RT4 TO MEMORY 

NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
MOVE MEMORY TO BR 

NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
MOVE BR TO PORTS 
PUT "EXPrCTED" IN R5 
jPUT "FOUND" IN R4 
DATA CORRECT? 
BR IF YES 
DATA ERROR 
SU09-1? 

CHANGE TO FLOATING 1 

CLEAR CARRY 

SHIFT BIT IN RO 

DONE IF RO-0 

NEXT ADDRESS 

LAST ADDRESS 

BR IF NO 

SCOPE THIS TEST 



024104 012737 000072 001226 TST72: 

024112 012737 024304 001216 

024120 012737 024132 001220 

024126 104412 

024130 005002 

024132 042737 000377 024146 1*: 

024140 050237 024146 

024144 104414 

024146 OlOOCO 2* : 

024150 010261 000004 

024154 104414 

024156 122500 

024160 104414 

024162 040620 

024164 104414 



TEST 72 *************************** 

:*MAIN MEMORY DUAL ADDRESSING TEST 

i*L0A0 EACH MEMORY LOCATION UITH ITS OUN ADDRESS 

i*REAO BACK EACH LOCATION TO VERIFY CORRECT ADDRESSING 

;:************************************************************** 

I TEST 72 



nov 

fWV 

nov 

nSTCLR 

CLR 

BIC 

BIS 

ROnCLK 

010000 

nov 

ROMCLK 
122500 
ROMCLK 
040620 
ROMCLK 



♦72.TSTN0 
#TST73.NEXT 
•II, LOCK 



R2 

♦377, 2* 
R2.2I 



R2.4(R1) 



iRl CONTAINS BASE DMCll ADDRESS 

{MASTER CLEAR OnCll 

(START AT ADDRESS 0 

: CLEAR ADDRESS FIELD OF INSTRUCTION 

:A00 ADDRESS TO INSTRUCTION 

(NEXT UORD IS INSTRUCTION. ROnCLK PC-5304 

I LOAD nAR 

NEXT UORD IS INSTRUCTION, ROMCLK PC-5304 
MOVE P0RT4 TO MEMORY 

NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
MOVE MEMORY TO THE BR 

NEXT UORD IS INSTRUCTION, ROMCLK PC-5304 
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SEQ b7 



024166 


061225 








61225 




MOW BR TO PORTS 






024170 


010205 








MOV 


R2.R5 i 


PUT "EXPECTED " IN R5 






024172 


116104 


000005 






MOVB 


5(R1).R4 


PUT "FOUND" IN R4 






024176 


120504 








CMPB 


R5.R4 


DATA CORRECT? 






024200 


001401 








BEQ 


3« 


BR IF YES 






024202 


104013 








EMT 


13 


DATA ERROR 






024204 


104401 






3*: 


SCOPl 




SU09-1? 






024206 


005202 








INC 


R2 


NEXT ADDRESS 






024210 


022702 


000400 






CMP 


«400.R2 


LAST ADDRESS 






024214 


001346 








BNE 


1$ 


BR IF NO 






024216 


012737 


024226 


001220 




MOV 


«4$,L0CK 


NEW SCOPE 1 






024224 


005002 








CLR 


R2 {RESTART AT ADDRESS 0 






024226 


042737 


000377 


024242 


4$: 


BIC 


#377.5$ 


CLEAR ADDRESS FIELD OF INSTRUCTION 




024234 


050237 


024242 






BIS 


R2,5$ 


ADD ADDRESS TO INSTRUCTION 






024240 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


•5304 


024242 


010000 






5»: 


010000 




LOAD THE MAR 






024244 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


■5304 


024246 


040620 








040620 




MOVE MEMORY TO THE BR 






024250 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


-5304 


024252 


061225 








61225 




MOV BR TO PORTS 






024254 


010205 








MOV 


R2.R5 


PUT "EXPECTED" IN R5 






024256 


116104 


000005 






MOVB 


5(R1),R4 


,PUT "FOUND" IN R4 






024262 


120504 








CMPB 


R5.R4 


DATA CORRECT? 






024264 


001401 








BEQ 


6% 


BR IF YES 






024266 


104013 








EMT 


13 


! ADDRESSING ERROR 






024270 


104401 






6i: 


SCOPl 




!SW09-1? 






024272 


005202 








INC 


R2 


.NEXT ADDRESS 






024274 


022702 


000400 






CMP 


«400.R2 


.IS IT THE LAST 






024300 


001352 








BNE 


4) 


iBR IF NO 






024302 


104400 








SCOPE 




! SCOPE THIS TEST 







68 



TEST 73 *************************** 

j*MAR TEST 

;*PERF0RM DUAL ADDRESSING TEST 
i*USING MAR AUTO-INC FEATURE 

• :****************************************«*****«*******4i******* 

; TEST 73 



024304 012737 000073 001226 TST73: 

024312 012737 024440 001216 

024320 104412 

024322 005002 

024324 104414 

024326 010000 

024330 032737 100000 001366 

024336 001402 

024340 104414 

024342 004000 

024344 010261 000004 1*: 

024350 104414 

024352 136500 

024354 005202 

024356 022702 000400 

024362 001370 



HOV 
MOV 

MSTCLR 
CLR 

ROMCLK 

010000 

BIT 

BEQ 

ROMCLK 

4000 

HOV 

ROMCLK 

136500 

INC 

CMP 

BNE 



♦73.TSTN0 
♦TST74.NEXT 



R2 



•BITIS.STATI 
.*6 



R2.4(R1} 



R2 

«400.R2 
li 



iRl CONTAINS BASE DMCll ADDRESS 
(MASTER CLEAR DMCll 
: START UITH A ZERO 

{NEXT UORO IS INSTRUCTION. ROMCLK PC-5304 

tLOAO MAR 

;DMC? 

I BR IF YES 

jNEXT WORD IS INSTRUCTION. ROMCLK PC-5304 
MAR HI _ 0 (KMC ONLY) 
WRITE DATA TO P0RT4 

NEXT WORD IS INSTRUCTION. ROMCLK PC»5304 

LOAD MEM AUTO-INC MAR 

INCREMENT DATA 
;OONE YET? 
:BR IF NO 



SEQ 8S 
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72 



024364 


005002 








CLR 


R2 : 


RESTART UITH A ZERO 


024366 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


024370 


010000 








010000 




LOAD MAR 


024372 


032737 


100000 


001366 




BIT 


«IT15.STAT1 ; 


OMC? 


024400 


001402 








BEQ 




BR IF YES 


024402 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 


024404 


004000 








4000 




MAR HI _ 0 CKMC ONLY) 


024406 








2): 








024406 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC»5304 


024410 


055224 








055224 




MOVE MEM TO P0RT4 


024412 


010205 








MOV 


R2.R5 


PUT "EXPECTED" IN R5 


024414 


016104 


000004 






MOV 


4(R1).R4 


PUT "FOUND" IN R4 


024420 


120504 








CMPB 


R5.R4 


DATA CORRECT? 


024422 


001401 








BEQ 


3* 


BR IF YES 


024424 


104014 








EMT 


14 


MAR ERROR 


024426 


005202 






3«: 


INC 


R2 


NEXT ADDRESS 


024430 


022702 


000400 






CMP 


♦400. R2 sOONE YET? 


024434 


001364 








BNE 


2( iBR IF NO 


024436 


104400 








SCOPE 


: SCOPE THIS TEST 












;*******«******************* TEST 74 *************************** 












s*ALU C 


BIT TEST 














:*TEST 


THAT AN ADD OF 377 AND 377 WILL SET THE C BIT 












• :******************************************************«*****«« 












: TEST 


74 




024440 


012737 


000074 


001226 


TST74: 


MOV 


O74.TSTN0 




024446 


012737 


024552 


001216 




MOV 


OTST75,NEXT 




024454 


012737 


024500 


001220 




MOV 


«1).L0CK 
















:R1 CONTAINS BASE DMCll ADDRESS 


024462 


104412 








MSTCLR 


iMASTER CLEAR DMCll 


024464 


004737 


034726 






JSR 


PC.MEMLO 


iLOAO MAINMEM DATA 


024470 


024542 








TOATA 




[POINTER TO DATA 


024472 


004737 


034762 






JSR 


PC.SPLD 


sLOAD SP DATA 


024476 


024542 








TOATA 




; POINTER TO DATA 


024500 








1$; 








024500 


104414 








ROMCLK 




;NEXT UORD IS INSTRUCTION. ROMCLK PC'5304 


024502 


010000 








010000 




;MAR_0 


024504 


104414 








ROMCLK 




iNEXT UORD IS INSTRUCTION, ROMCLK PC«5304 


024506 


054400 








054400! <0*20> 


iADD 377 AND 377. TO SET C BIT 


024510 


104414 








ROMCLK 


{NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


024512 


040421 








040401! 


<l*20> 


;A00 0 AND 0 AND THE C BIT 


024514 


104414 








ROMCLK 


:NEXT WORD IS INSTRUCTION. ROMCLK PC«5304 


024516 


061224 








61224 


iPUT RESULTS IN P0RT4 


024520 


012705 


000001 






MOV 


#1.R5 


;PUT "EXPECTED" IN R5 


024524 


016104 


000004 






MOV 


4(R1).R4 


sPUT "FOUND" IN R4 


024530 


120504 








CMPB 


R5,R4 


iDATA CORRECT? 


024532 


001401 








QCO 


2» 


;BR IF YES 


024534 


104015 








EMT 


15 


; ERROR C BIT NOT SET 












SCOPl 




;SW09-1? 


024540 


104400 








SCOPE 




i SCOPE THIS TEST 


024542 


377 


000 


000 


TO AT A: 


.BYTE 


-1.0.0.0.0.0.0.0 




024545 


000 


000 


000 










024550 


000 


000 













.EVEN 
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:*************************** TEST 75 *************************** 

!*ALU TEST 

!*TEST OF ALU FUNCTION SEL 6 UITH C BIT CLEARED 
i*ALU FUNCTION (B) CODE-11 
:*LOAO MAIN HEM AND SP UITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION. VERIFY THE RESULTS 

; : ************************************************************** 



TEST 75 





VAC r J > 


000075 


vv ACCW 


TST75- 


MOV 


#75.TSTN0 




024560 


01P737 

VAC f f 


024726 


001216 




MOV 


#TST76.NEXT 




024566 


012737 


024620 


001220 

VV AbbV 




tiov 


«1).L0CK 


Rl CONTAINS BASE DMCll ADDRESS 


0;'4574 


104412 








MSTCLR 




MASTER CLEAR DMCll 


024576 


005000 








CLR 


RO 


MEM * SP ADDRESS 


024600 


012702 


024716 






MOV 


«5$,R2 


POINTER TO CORRECT DATA 


024604 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 UORDS OF MAIN MEMORY 


024610 


035052 








MEMO AT 




POINTER TO DATA 


024612 


004737 


034762 






JSR 


PC.SPLD iLOAD 8 UORDS OF SP 


024616 


035062 








SPDAT 


: POINTER TO DATA 


024620 


004737 


035026 




1* : 


JSR 


PC.CLRC ; CLEAR C BIT! 


024624 


042737 


000017 


024640 




BIG 


♦17.21 


.CLEAR ADDRESS FIELD OF INSTRUCTION 


024632 


050037 


024640 






BIS 


R0.2$ 


ADD ADDRESS TO INSTRUCTION 


024636 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC -5304 


024640 


010000 






2*: 


010000 




.LOAD MAR 


024642 


042737 


000017 


024656 




BIC 


«17.3t i CLEAR ADDRESS OF INSTRUCTION 


024650 


050037 


024656 






BIS 


R0,3t sADO ADDRESS TO INSTRUCTION 


024654 


104414 








ROMCLK 


iNEXT WORD IS INSTRUCTION, ROMCLK PC -5304 


024656 


040620 






3*: 


040400! 


<11*20> 


;BR _ SEL B 


024660 


104414 








ROMCLK 


iNEXT WORD IS INSTRUC1I0N. ROMCLK PC -5304 


024662 


061224 








61224 




(MOVE BR TO P0RT4 


024664 


111205 








MOVB 


(R2).R5 iPUT "EXPECTED" IN R5 


024666 


116104 


000004 






MOVB 


4(R1).R4 jPUT "FOUND" IN R4 


024672 


120504 








CMPB 


R5.R4 (DATA CORRECT? 


024674 


001401 








BEQ 


41 


iBR IF YES 


024676 


104015 








EMT 


15 iALU ERROR 


024700 


104401 






41: 


SCOPl 




iSU09-l? 


024702 


005202 








INC 


R2 


(NEXT DATA 


024704 


005200 








INC 


RO 


NEXT ADDRESS 


024706 


022700 


000010 






CMP 


♦lO.RO 


iOONE YET? 


024712 


001342 








BNE 


1$ 


;BR IF NO 


024714 


104400 








SCOPE 


! SCOPE THIS TEST 


024716 


000 


377 


000 


5»: 


.BYTE 


O.-l. 0.-1.125. 252. 125. 252 


024721 


377 


125 


252 










024724 


125 


252 




.EVEN 









74 

i *************************** TEST 76 *************************** 

i*ALU TEST 

j*TEST OF ALU FUNCTION SEL A UITH C BIT CLEARED 
i*ALU FUNCTION (A) CODE-10 
t*LOAD MAIN MEM AND SP UITH 8 UORDS OF DATA 
i*PERFORM THE FUNCTION. VERIFY THE RESULTS 
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SEQ 90 



; TEST 76 



024726 


012737 


000076 


001226 


TST76: 


nov 


♦76.TSTN0 






024734 


012737 


025102 


001216 




nov 


♦TST77.NEXT 






024742 


012737 


024774 


001220 




nov 


«lt,L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




024750 


104412 








MSTCLR 




MASTER CLEAR DMCll 




024752 


005000 








CLR 


RO i 


HEM * SP ADDRESS 




024754 


012702 


025072 






MOV 


«5).R2 


POINTER TO CORRECT DATA 




024760 


004737 


034726 






JSR 


PC.MEMLO 


LOAD 8 WORDS OF MAIN MEMORY 




024764 


035052 








MEMOAT 




POINTER TO DATA 




024766 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 WORDS OF SP 




024772 


035062 








SPDAT 




POINTER TO DATA 




024774 


004737 


035026 




11: 


JSR 


PC.CLRC 


CLEAR C BIT! 




025000 


042737 


000017 


025014 




BIC 


♦17, 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 


025006 


050037 


025014 






BIS 


R0.2t 


ADD ADDRESS TO INSTRUCTION 




025012 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


025014 


010000 






21: 


010000 




LOAD MAR 




025016 


042737 


000017 


025032 




BIC 


♦17, 3» 


CLEAR ADDRESS OF INSTRUCTION 




025024 


050037 


025032 






BIS 


R0,3( I ADD ADDRESS TO INSTRUCTION 




025030 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK 


PC •5304 


025032 


040600 






3(: 


040400! 


<10*20> 


BR _ SEL A 




025034 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


025036 


061224 








61224 


(MOVE BR TO P0RT4 




025040 


111205 








MOVB 


(R2).R5 


[PUT "EXPECTED" IN R5 




025042 


116104 
120304 


000004 






MOVB 


4(R1).R4 


,PUT "FOUND" IN R4 




025046 








CMPB 


R5.R4 


i DATA CORRECT? 




025050 


001401 








BEQ 


4» 


iBR IF YES 




025052 


104015 








EMT 


15 


sALU ERROR 




025054 


104401 






4>: 


SCOPl 




;SU09-1? 




025056 


005202 








INC 


R2 


iNEXT DATA 




025060 


005200 








INC 


RO 


sNEXT ADDRESS 




025062 


022700 


000010 






CMP 


♦10, RO 


sOONE YET? 




025066 


001342 








BNE 


11 


iBR IF NO 




025070 


104400 








SCOPE 


.-SCOPE THIS TEST 




025072 


000 


000 


377 


5»: 


.BYTE 


0.0.-1.-1.125,125.252.252 





025075 377 125 125 
025100 252 252 

.EVEN 

75 

;*************************** TEST 77 *************************** 

s*ALU TEST 

i*TEST OF ALU FUNCTION A OR NOTB WITH C BIT CLEARED 
s*ALU FUNCTION (A OR NOTB) CODE-12 
i*LOAO MAIN MEM AND SP WITH 8 WORDS OF DATA 
i*PERFORM THE FUNCTION, VERIFY THE RESULTS 

I : ************************************************************** 

} TEST 77 

025102 012737 000077 001226 TST77: MOV ♦77.TSTN0 
025110 012737 025256 001216 MOV ♦TSTIOO.NEXT 

025116 012737 025150 001220 MOV ♦It. LOCK 

(Rl CONTAINS BASE DMCll ADDRESS 



SEQ 91 
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XV^^ X£ 








MSTCLR 












W3VW 








CLR 


RO 










O 19709 
vxc > vc 


095246 






ftOV 


#5t R2 


•POINTER TQ CORRECT OATA 






VC 


004737 


034726 






JSR 


PC NENLD 


:LOAO 8 WORDS OF NAIN NENORY 
















MEHOAT 




! POINTER TO DATA 








r ^ » 


034762 






JSR 


PC . SPLD 


:LOAD 8 WORDS OF SP 
















SPOAT 




{POINTER TO DATA 






vc 


004737 


035026 




It • 


JSR 


PC.CLRC 


i CLEAR C BIT! 








042737 


000017 


025170 




BIC 


♦17,21 


: CLEAR ADDRESS FIELD OF INSTRUCTION 




095162 




025170 






BIS 


R0.2$ 


:ADD ADDRESS TO INSTRUCTION 






VC w 


104414 








ROHCLK 




:NEXT WORD IS INSTRUCTION. ROHCLK 


PC 




025170 


010000 






2$: 


010000 




iLOAD MAR 






025172 

VC JX fC 


042737 


000017 


025206 




BIC 


#17.3* 


{CLEAR ADDRESS OF INSTRUCTION 






025200 

Vb a/fi W 


050037 


025206 






BIS 


R0.3* 


{ADD ADDRESS TO INSTRUCTION 






025204 


104414 








ROnCLK 




{NEXT WORD IS INSTRUCTION, ROHCLK 


PC 


■5304 


025206 


040640 






3$: 


040400! 


<12*20> 


{BR . A OR NOTB 






025210 


104414 








ROHCLK 




(NEXT WORD IS INSTRUCTION, ROHCLK 


PC 


■5304 


025212 

Vfc a/fc 


061224 

W*fct^ 








61224 




{HOVE BR TO P0RT4 






025214 

Vb 


111205 








novB 


(R2),R5 


{PUT "EXPECTED" IN R5 






025216 


116104 


C00004 






MOVB 


4(R1},R4 


{PUT "FOUND" IN R4 






025222 

VK «/b b& 


120504 








CMP6 


R5.R4 


{DATA CORRECT? 






025224 


001401 








BEQ 


4$ 


{BR IF YES 






025226 


104015 








EMT 


15 


(ALU ERROR 






025230 


104401 






4t : 


SCOPl 




ISU09-1? 






025232 


005202 








INC 


R2 


(NEXT DATA 






025234 


005200 








INC 


RO 


(NEXT ADDRESS 






025236 


022700 


000010 






CMP 


no.Ro 


(DONE YET? 






025242 


001342 








BNE 


1» 


iBR IF NO 






025244 


104400 








SCOPE 




(SCOPE THIS TEST 






025246 


377 


000 


377 


51: 


.BYTE 


-1.0.-1.-1.-1,125.252,-1 






025251 


377 


377 


125 














025254 


252 


377 
























.EVEN 










































i*ALU TEST 


















r*TFST 


OF ALU FUNCTION A AND B UITH C BIT aEARED 
















i*ALU FUNCTIOri (A AND 8) CODE-13 
















i*LOAO MAIN rcn AND SP 


UITH 8 WORDS OF DATA 
















i*PERFORn THE FUNCTION . 


VERIFY THE RESULTS 
















1 TEST 


100 








025256 


012737 


000100 


001226 


TSTIOO: 


NOV 


•100,TSTN0 








025264 


012737 


025432 


001216 




NOV 


•TST 101. NEXT 








025272 


012737 


025324 


001220 




NOV 


•ll.LOCK 






















(Rl CONTAINS BASE OHCll ADDRESS 






025300 


104412 








NSTCLR 




(MASTER aEAR DHCll 






025302 


005000 








CLR 


RO 


iNEN * SP ADDRESS 






025304 


012702 


025422 






NOV 


«5»,R2 


(POINTER TO CORRECT DATA 






025310 


004737 


034726 






JSR 


PC.NEHLD 


(LOAD 8 yOROS OF NAZN NENORY 






025314 


035052 








NENDAT 




(POINTER TO DATA 






025316 


004737 


034762 






JSR 


PC.SPLO 


(LOAD 8 UPRDS OF SP 






025322 


035062 








SPDAT 




(POINTER TO DATA 






025324 


004737 


035026 




11: 


JSR 


PCCLRC 


(CLEAR C BIT! 







SEQ 92 
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0^5530 


042737 


000017 


02S344 




BIC 


♦17. 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 






0500S7 


025344 






BIS 


R0.2I 


ADD ADDRESS TO INSTRUCTION 






025342 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK 


PC 


•5304 


025i44 


010000 






Zt: 


010000 




LOAD MAR 






025346 


042737 


000017 


025362 




BIC 


•17. 3» 


CLEAR ADDRESS OF INSTRUCTION 






025354 


050037 


025362 






CIS 


R0.3$ 


ADO ADDRESS TO INSTRUCTION 






025360 


104414 








ROnCLK 


sNEXT WORD IS INSTRUCTION. ROMCLK 


PC 


•5304 


025362 


040660 






it: 


040400! 


'13*20> iBR . A AND B 






025364 


104414 








ROHCLK 




NEXT UORD IS INSTRUCTION. ROMCLK 


PC 


•5304 


025366 


061224 








61224 




MOVE BR TO P0RT4 






025370 


111205 








HOVB 


(R2).R5 


PUT "EXPECTED" IN R5 






025372 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 






025376 


120504 








CMPB 


R5.R4 


DATA CORRECT? 






025400 


001401 








BEQ 


4* 


BR IF YES 






025402 


104015 








EMT 


15 


ALU ERROR 






025404 


104401 






4S: 


SCOPl 




SU09-1? 






025406 


005202 








INC 


R2 


NEXT DATA 






025410 


005200 








INC 


RO 


NEXT ADDRESS 






025412 


022700 


000010 






CMP 


410.ro 


DONE YET? 






025416 


001342 








BNE 


IS 


,BR IF NO 






025420 


104400 








SCOPE 




SCOPE THIS TEST 






025422 


000 


000 


000 


5$: 


.BYTE 


0.0.0.-1,125.0,0.252 






025425 


377 


125 


000 














025430 


000 


252 

















.EVEN 



*************************** TEST 101 *************************** 

*ALU TEST 

•TEST OF ALU FUNCTION A OR B WITH C BIT CLEARED 
*ALU FUNCTION (A OR B) CODE" 14 
*LOAD MAIN MEM AND SP UITH 8 WORDS OF DATA 
♦PERFORM THE FUNCTION. VERIFY THE RESULTS 













! TEST 


101 




025432 


012737 


000101 


001226 


TSTlOl: 


MOV 


nOl.TSTNO 




025440 


012737 


025606 


001216 




MOV 


♦TST 102, NEXT 




025446 


012737 


025500 


001220 




MOV 


«1*.L0CK 


Rl CONTAINS BASE DMCll ADDRESS 


025454 


104412 








MSTCLR 




MASTER CLEAR DMCll 


025456 


005000 








CLR 


RO 


MEM . SP ADDRESS 


025460 


012702 


025576 






MOV 


(»5».R2 


POINTER TO CORRECT DATA 


025464 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 


02S470 


035052 








MEMOAT 




POINTER TO DATA 


025472 


004737 


034762 






JSR 


PC.SPLD 


iLOAD 8 WORDS OF SP 


025476 


035062 








SPDAT 




POINTER TO DATA 


025500 


004737 


035026 




1*: 


JSR 


PC.CLRC 


t CLEAR C BIT! 


025504 


042737 


000017 


025520 




BIC 


♦17. 2» 


; CLEAR ADDRESS FIELD OF INSTRUCTION 


025512 


050037 


025520 






BIS 


R0.2$ 


,ADD ADDRESS TO INSTRUCTION 


025516 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC>5304 


025520 


010000 






2t: 


010000 




LOAD MAR 


025522 


042737 


000017 


025536 




BIC 


•17.3$ 


CLEAR ADDRESS OF INSTRUCTION 


025530 


050037 


025536 






BIS 


R0.3$ 


ADO ADDRESS TO INSTRUCTION 


025534 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC '5304 


025536 


040700 






Zt: 


040400! 


<14*20> 


BR A OR B 
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SEQ 



025540 


1C4414 








ROflCLiC 




NEXT UORD IS INSTRUCTION. 


025542 


061224 








61224 




MOVE BR TO P0RT4 


C2SS44 


111205 








HOVB 


(R2).R5 


PUT "EXPECTED" IN R5 


025546 


116104 


000004 






MOVB 


4CR1).R4 


PUT "FOUND' IN R4 


025552 


120504 








CW»B 


R5.R4 


DATA CORRECT? 


025554 


001401 








BEQ 


4$ 


BR IF YES 


025556 


104015 








EHT 


15 


ALU ERROR 


025560 


104401 






4$: 


SCOPl 




SU09«1? 


025562 


005202 








INC 


R2 


NEXT DATA 


025564 


005200 








INC 


RO 


NEXT ADDRESS 


025566 


022700 


000010 






CHP 


♦10. RO 


DONE YET? 


025572 


001342 








6NE 


u 


BR IF NO 


025574 


104400 








SCOPE 




.SCOPE THIS TEST 


025576 


000 


377 


377 


51: 


.BYTE 


0. 1.-1,-1.125.-1. 1.252 


025601 


577 


125 


377 










025604 


377 


252 













.EVEN 



TEST 102 *************************** 

*ALU TEST 

*TEST OF ALU FUNCTION A XQR B UITH C BIT CLEARED 

*ALU FUNCTION (A XOR B) CODE-15 
5*L0AD MAIN MEM AND SP UITH 8 WORDS OF DATA 
:*PERFO«M THE FUNCTION. VERIFY THE RESULTS 

i : *************************************************************** 



TEST 102 



0256C6 


012737 


000102 


001226 


TST102: 


nov 


#102.TSTNO 






025614 


012737 


025762 


001216 




MOV 


♦TST103.NEXT 






025622 


012737 


025654 


001220 




MOV 


*1».L0CK 


Rl CONTAINS BASE OMCll ADDRESS 




025630 


104412 








MSTCLR 




MASTER CLEAR DMCll 




025632 


005000 








CLR 


RO 


MEM ♦ SP ADDRESS 




025634 


012702 


025752 






MOV 


♦5J.R2 


POINTER TO CORRECT DATA 




025640 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 




025644 


035052 








MEMOAT 




POINTER TO DATA 




025646 


004737 


034762 






JSR 


PC.SPLD 


.LOAD 8 WORDS OF SP 




025652 


035062 








SPDAT 




POINTER TO DATA 




025654 


004737 


035026 




1$: 


JSR 


PC.CLRC 


t CLEAR C BIT! 




025660 


042737 


000017 


025674 




BIG 


*17.2« .-CLEAR ADDRESS FIELD OF INSTRUCTION 


025666 


050037 


025674 






BIS 


R0.2$ {ADO ADDRESS TO INSTRUCTION 




025672 


104414 








ROMCLK 




iNEXT UORD IS INSTRUCTION. ROMCLK 


PC«5304 


025674 


010000 






21: 


010000 


iLOAD MAR 




025676 


042737 


000017 


025712 




BIC 


«17.3« tCLEAR ADDRESS OF INSTRUCTION 




025704 


050037 


025712 






BIS 


R0.3< 


iADD ADDRESS TO INSTRUCTION 




025710 


104414 








ROMCLK 




■NEXT UORD IS INSTRUCTION. ROMCLK 


PC -5304 


025712 


040''C0 






3<: 


040400! 


<15*20> 


BR A XOR B 




025714 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


PC«5304 


025716 


061224 








61224 


;MOVE BR TO P0RT4 




025720 


111205 








MOVB 


CR2).R5 


PUT "EXPECTED" IN R5 




025722 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 




025726 


120504 








CMPB 


R5.R4 


DATA CORRECT? 




025730 


001401 








BEQ 


4$ 


BR IF YES 




025732 


104015 








EMT 


15 


ALU ERROR 




025734 


104401 






4»: 


SCOPl 




!SU09'1? 
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025736 005202 

025740 005200 

025742 022700 000010 

025746 001342 

025750 104400 

025752 000 377 

025755 000 000 

025760 377 000 



377 
377 



79 



5$: 



.EVEN 



INC 

INC 

CMP 

BNE 

SCOPE 

.BYTE 



SEQ 94 



R2 sNEXT DATA 

RO :NEXT ADDRESS 

♦10. RO -.DONE YET? 

1$ ;BR IF NO 

8 SCOPE THIS TEST 
0. 1. -1.0.0, l.-l.O 



*************************** TEST 103 *************************** 

*ALU TEST 

*TEST OF ALU FUNCTION ADO UITH C BIT CLEARED 
*ALU FUNCTION (A PLUS B) CODE-00 
*LOAD MAIN HEM AND SP UITH 8 WORDS OF DATA 
♦PERFORM THE FUNCTION. VERIFY THE RESULTS 

:*************************************************************** 



TEST 103 



025762 


012737 


000103 


001226 


TST103: 


MOV 


♦103.TSTN0 






025770 


012737 


026136 


001216 




MOV 


♦TST104.NEXT 






025776 


012737 


026030 


001220 




MOV 


♦1».L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




026004 


104412 








MSTCLR 




MASTER CLEAR DMCll 




026006 


005000 








CLR 


RO 


MEM ♦ SP ADDRESS 




026010 


012702 


026126 






MOV 


#5».R2 


POINTER TO CORRECT DATA 




026014 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 




026020 


035052 








MEMDAT 




POINTER TO DATA 




026022 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 WORDS OF SP 




026026 


035062 








SPDAT 




POINTER TO DATA 




026030 


004737 


035026 




IS: 


JSR 


PC.CLRC 


CLEAR C BIT! 




026034 


042737 


000017 


026050 




BIC 


♦17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


026042 


050037 


026050 






BIS 


R0.2I 


ADD ADDRESS TO INSTRUCTION 




026046 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC =5304 


026050 


010000 






2): 


010000 




LOAD MAR 




026052 


042737 


000017 


026066 




BIC 


#17. 3J 


CLEAR ADDRESS OF INSTRUCT' \ 




026060 


050037 


026066 






BIS 


R0.3$ 


ADO ADDRESS TO INSTRUCTIC 




026064 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC-5304 


026066 


040400 






3$: 


040400! 


<00*20> :BR . ADD 




026070 


104414 








ROMCLK 




[NEXT WORD IS INSTRUCTION. ROMCLK 


PC«5304 


026072 


061224 








61224 




(MOVE BR TO P0RT4 




026074 


111205 








MOVB 


(R2).R5 


•PUT -EXPECTED" IN R5 




026076 


116104 


000004 






MOVB 


4CR1).R4 


iPUT "FOUND" IN R4 




026102 


120504 








CMPB 


R5.R4 


iOATA CORRECT? 




026104 


001401 








BEQ 


4» 


iBR IF YES 




026106 


104015 








EMT 


15 


sALU ERROR 




026110 


104401 






4$: 


SCOPl 




;SU09-1? 




026112 


005202 








INC 


R2 {NEXT DATA 




026114 


005200 








INC 


RO 


NEXT ADDRESS 




026116 


022700 


000010 






CMP 


«10,R0 


.DONE YET? 




026122 


001342 








BNE 


11 


BR IF NO 




026124 


104400 








SCOPF 




SCOPE THIS TEST 




026126 


000 


377 


377 


5$: 


.BYTE 


0.-1.-1.376.252. 


■1.-1.124 




026131 


376 


252 


377 












026134 


377 


124 
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TEST 104 *************************** 

.•*ALU TEST 

!*TEST OF ALU FUNCTION 2A U/C UITH C BIT CLEARED 
{*ALU FUNCTION (A PLUS A PLUS C) C0DE«6 
:*LOAO NAIN MEN AND SP UITH 8 WORDS OF DATA 
{♦PERFORM THE FUNCTION. VERIFY THE RESULTS 

::*******************************«**««***********««******«****««« 



s TEST 104 



026136 


012737 


000104 


001226 


TST104: 


5 " " ~ ~ 

NOV 


♦104.TSTN0 








026144 


012737 


026312 


001216 




NOV 


♦T ST 105. NEXT 








026152 


012737 


026204 


001220 




MOV 


#1*.L0CK 




Rl CONTAINS BASE DMCll ADDRESS 




026160 


104412 








MSTCLR 






MASTER CLEAR DMCll 




026162 


005000 








CLR 


RO 




MEM ♦ SP ADDRESS 




026164 


012702 


026302 






MOV 


#S$.R2 




POINTER TO CORRECT DATA 




026170 


004737 


034726 






JSR 


PC.MEMLD 




LOAD 8 UORDS OF MAIN MEMORY 




026174 


035052 








MEMDAT 






POINTER TO DATA 




026176 


004737 


034762 






JSR 


PC.SPLD 




LOAD 8 UORDS OF SP 




026202 


035062 








SPOAT 






POINTER TO DATA 




026204 


004737 


035026 




1$: 


JSR 


PC.CLRC 




CLEAR C BIT! 




026210 


042737 


000017 


026224 




BIC 


♦17.2$ 




CLEAR ADDRESS FIELD OF INSTRUCTION 


026216 


050037 


026224 






BIS 


R0.2$ 




ADD ADDRESS TO INSTRUCTION 




026222 


104414 








ROMCLK 






NEXT UORD IS INSTRUCTION. ROMCLK 


PC -5304 


026224 


010000 






2$: 


010000 






LOAD MAR 




026226 


042/37 


000017 


026242 




BIC 


#17.3$ 




CLEAR ADDRESS OF INSTRUCTION 




026234 


050037 


026242 






BIS 


R0.3$ 




ADD ADDRESS TO INSTRUCTION 




026240 


104414 








ROMCLK 






NEXT UORD IS INSTRUCTION. ROMCLK 


PC»5304 


026242 


040540 






3$: 


040400! 


<6*20> 




BR 2A U/C 




026244 


104414 








ROMCLK 






NEXT UORD IS INSTRUCTION. Rt 1CLK 


PC»5304 


026246 


061224 








61224 






MOVE BR TO P0RT4 




026250 


111205 








HOVB 


CR2).R5 




PUT -EXPECTED" IN R5 




026252 


116104 


000004 






novB 


4CR1),R4 




PUT -FOUND" IN R4 




026256 


120504 








CNPB 


R5.R4 


;DATA CORRECT? 




026260 


001401 








BEQ 


4$ 




BR IF YES 




026262 


104015 








EMT 


15 




ALU ERROR 




026264 


104401 






41: 


SCOPl 






SU09-1? 




026266 


005202 








INC 


R2 




NEXT DATA 




026270 


005200 








INC 


RO 




NEXT ADDRESS 




026272 


022700 


000010 






CMP 


«10.R0 


aOONE YET? 




026276 


001342 








BNE 


1$ 


:BR IF NO 




026300 


104400 








SCOPE 




: SCOPE THIS TEST 




026302 


000 


000 


376 


5t: 


.BYTE 


0 . 0 . 376 . 376 . 232 . 252 . 124 . 124 




026305 


376 


252 


252 














026310 


124 


124 

















.EVEN 
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;*************************** TEST 105 *************************** 

s*ALU TEST 

:*TEST OF ALU FUNCTION SUB UITH C BIT CLEARED 

;*ALU FUNCTION (A-B) C0DE=16 

:*L0AD MAIN MEM AND SP UITH 8 UORDS OF DATA 
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s*PERfOfiM THE FUNCTION. VERIFY THE RESULTS 

; ; **************************************** 



s TEST 105 



> 



026312 


012737 


000105 


001226 


TST105: 


MOV 


♦105.TSTN0 






026320 


012737 


026466 


001216 




NOV 


♦T ST 106. NEXT 






026326 


012737 


026360 


001220 




MOV 


«1S.L0CK 


Rl CONTAINS BASE OMCll ADDRESS 




026334 


104412 








MSTCLR 




MASTER CLEAR DMCll 




026336 


005000 








CLR 


RO 


MEM * SP ADDRESS 




026340 


012702 


026456 






MOV 


«I.R2 


POINTER TO CORRECT DATA 




026344 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 




026350 


035052 








MEHDAT 




POINTER TO DATA 




026352 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 WORDS OF SP 




026356 


035062 








SPOAT 




POINTER TO DATA 




026360 


004737 


035026 




1»: 


JSR 


PC.CLRC 


CLEAR C BIT! 




026364 


042737 


000017 


026400 




BIC 


♦17. 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 


026372 


050037 


026400 






BIS 


R0,2$ 


ADD ADDRESS TO INSTRUCTION 




026376 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK 


PC«5304 


026400 


010000 






2): 


010000 




LOAD MAR 




026402 


042737 


000017 


026416 




BIC 


#17.3* 


CLEAR ADDRESS OF INSTRUCTION 




026410 


050037 


026416 






BIS 


R0.3) 


ADD ADDRESS TO INSTRUCTION 




026414 


104414 








ROMCLK 


iNEXT WORD IS INSTRUCTION. ROMCLK 


PC-5304 


026416 


040740 






3$: 


040400. 


<16*20> 


BR SUB 




026420 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC=5304 


026422 


061224 








61224 




MOVE BR TO P0RT4 




026424 


111205 








MOVB 


(R2).R5 


PUT "EXPECTED" IN R5 




026426 


116104 


000004 






MOVB 


4(R1).R4 


.PUT "FOUND" IN R4 




026432 


120504 








CMPB 


R5.R4 


jDATA CORRECT? 




026434 


001401 








BEQ 


4$ 


iBR IF YES 




026436 


104015 








EMT 


15 


;ALU ERROR 




026440 


104401 






4«: 


SCOPl 


JSM09-1? 




026442 


005202 








INC 


R2 


(NEXT DATA 




026444 


005200 








INC 


RO 


iNEXT ADDRESS 




026446 


022700 


000010 






CMP 


«10,R0 


iDONE YET? 




026452 


001342 








BNE 


1) 


;BR IF NO 




026454 


104400 








SCWE 




J SCOPE THIS TEST 




026456 


000 


001 


377 


5$: 


.BYTE 


0.1.-1.0,0.253.125.0 




026461 


000 


000 


253 












026464 


125 


000 















.EVEN 
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;*****************i********* TEST 106 *************************** 

8*ALU TEST 

;*TEST OF ALU FUNCTION ADD U/C WITH C BIT CLEARED 
;*ALU FUNCTION (A PLUS B PLUS C) CODE -01 
;*LOAD MAIN MEM AND SP WITH 8 WORDS OF DATA 
!*PERFORM THE FUNCTION, VERIFY THE RESULTS 

■ : *************************************************************** 

: TEST 106 



026466 012737 000106 001226 TST106: MOV «106.TSTN0 
026474 012737 026642 001216 MOV #TST107,NEXT 

026502 012737 026534 001220 MOV «1$,L0CK 



SEQ 97 
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Rl CONTAINS BASE DMCll ADDRESS 



026510 


104412 








MSTCLR 




MASTER CLEAR DMCll 




026512 


005000 








CLR 


RO 


MEM ♦ SP ADDRESS 




026514 


012702 


026632 






MOV 


*5*.R2 


POINTER TO CORRECT DATA 




026520 


004737 


034726 






JSR 


PC.MEMLD i 


LOAD 8 WORDS OF MAIN MEMORY 




026524 


035052 








HEMOAT 




POINTER TO DATA 




026526 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 WORDS OF SP 




026532 


035062 








SPDAT 




POINTER TO DATA 




026534 


004737 


035026 




1»: 


JSR 


PC.CLRC 


CLEAR C BIT! 




026540 


042737 


000017 


026554 




BIC 


*17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


026546 


050037 


026554 






BIS 


R0.2$ 


ADD ADDRESS TO INSTRUCTION 




026552 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK 


PC -5304 


026554 


010000 






2*: 


010000 




LOAD MAR 




026556 


042737 


000017 


026572 




BIC 


*17.3* 


CLEAR ADDRESS OF INSTRUCTION 




026564 


050037 


026572 






BIS 


R0.3$ 


ADD ADDRESS TO INSTRUCTION 




026570 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC "5304 


026572 


040420 






3$: 


040400 !<01*20> 


BR . ADD W/C 




026574 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


026576 


061224 








61224 




MOVE BR TO P0RT4 




026600 


111205 








MOVB 


(R2).R5 


PUT "EXPECTED" IN R5 




026602 


116104 


000004 






MOVB 


4(R1),R4 


PUT "FOUND" IN R4 




026606 


120504 








CMPB 


R5.R4 


DATA CORRECT? 




026610 


001401 








BEQ 


4$ 


BR IF YES 




026612 


104015 








EMT 


IS 


ALU ERROR 




026614 


104401 






4$: 


SCOPl 


JSU09-1? 




026616 


005202 








INC 


R2 


.NEXT DATA 




026620 


005200 








INC 


RO 


,NEXT ADDRESS 




026622 


022700 


000010 






CMP 


#lo '>0 


DONE YET? 




026626 


001342 








BNE 


1$ 


BR IF NO 




026630 


104400 








SCOPE 


5 SCOPE THIS TEST 




026632 


000 


377 


377 


5»: 


.BYTE 


0.-1.-1.376.252, 


-1.-1.124 




026635 


376 


252 


377 












026640 


377 


124 






















.EVEN 




















TEST 107 *************************** 












!*ALU TEST 
















;*TEST 


OF ALU FUNCTION SUB W/C WITH C BIT CLEARED 














:*ALU FUNCTION CA-B-C) 


CODE-2 














i*LOAD flAIN MEM AND SP UITH 8 WORDS OF DATA 














j*PERFORM THE FUNCTION, VERIFY THE RESULTS 


























i TEST 


107 






026642 


012737 


000107 


001226 


TST107 : 


MOV 


#107,TSTNG 






026650 


012737 


027016 


001216 




MOV 


♦TSTllO.NEXT 






026656 


012737 


026710 


001220 




MOV 


n).LOCK 




















;R1 CONTAINS BASE DMCll ADDRESS 




026664 


104412 








MSTCLR 




(MASTER CLEAR DMCll 




026666 


005000 








CLR 


RO 


;MEM ♦ SP ADDRESS 




026670 


012702 


027006 






MOV 


«5».R2 


J POINTER TO CORRECT DATA 




026674 


004737 


034726 






JSR 


PC.MEMLD 


iLOAO 8 WORDS OF MAIN MEMORY 




026700 


035052 








MEMDAT 




i POINTER TO DATA 




026702 


004737 


034762 






JSR 


PC.SPLD 


iLOAD 8 WORDS OF SP 




026706 


035062 








SPDAT 




! POINTER TO DATA 





CZOMC MACRO V04.00 27-JUN-«5 15:16:57 PAGE 27-59 
OMCll ALU TESTS 



026710 


004737 


035026 




1*: 


JSR 


PC.CLRC i 


CLEAR C BIT! 




026714 


042737 


000017 


026730 




BIC 


♦17. 2» 


CLEAR ADDRESS FIELD Or INSTRUCTION 


026722 


050037 


026730 






BIS 


R0.2* 


ADD ADORESS TO INSTRUCTION 




026726 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK 


PC -5304 


026730 


010000 






2): 


010000 




LOAD MAR 




026732 


042737 


000017 


026746 




BIC 


#17.31 


CLEAR ADDRESS OF INSTRUCTION 




026740 


050037 


026746 






BIS 


R0.3* 


ADD ADDRESS TO INSTRUCTION 




026744 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


026746 


040440 






3»: 


040400! 


<2*20> 


BR _ SUB W/C 




026750 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK 


PC-5304 


026752 


061224 








61224 




MOVE BR TO P0RT4 




026754 


111205 








M0V6 


(R2).R5 


PUT "EXPECTED" IN R5 




026756 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 




026762 


120504 








CMPB 


R5.R4 


DATA CORRECT? 




026764 


001401 








BEQ 


4» 


[BR IF YES 




026766 


104015 








EMT 


15 


;ALU ERROR 




026770 


104401 






4*: 


SCOPl 




,SU09-1? 




026772 


005202 








INC 


R2 


;NEXT DATA 




026774 


005200 








INC 


RO 


iNEXT ADDRESS 




026776 


022700 


000010 






CMP 


«10.R0 


DONE YET? 




027002 


001342 








BNE 


1) 


,BR IF NO 




027004 


104400 








SCOPE 




i SCOPE THIS TEST 




027006 


377 


000 


376 


5): 


.BYTE 


-1,0.376.-1.-1.252.124.-1 




027011 


377 


377 


252 












027014 


124 


377 















.EVEN 
B4 

;*************************** TEST 110 *************************** 

;*ALU TEST 

j*TEST OF ALU FUNCTION INC A UITH C BIT CLEARED 
s*ALU FUNCTION (A PLUS 1) CODE-3 
;*LOA0 MAIN MEM AND SP UITH 8 UORDS OF DATA 
-.♦PERFORM THE FUNCTION, VERIFY THE RESULTS 

• :*************************************************************** 

; TEST 110 

027016 012737 000110 001226 TSTllO: MOV #110.TSTN0 
027024 012737 027172 001216 MOV #TST111,NEXT 

027032 012737 027064 001220 MOV »1»,L0CK 

027040 104412 MSTCLR 

027042 005000 CLR RO 

027044 012702 027162 MOV *5$.R2 

027050 004737 034726 JSR PCHEMLD 

027034 035052 MEMDAT 

027056 004737 034762 JSR PC.SPLO 

027062 035062 SPDAT 

027064 004737 035026 1»: JSR PC.CLRC 

027070 042737 000017 027104 BIC #17,2$ 

027076 050037 027104 BIS R0,2* 

027102 104414 ROMCLK 

027104 010000 2): 010000 

027106 042737 000017 027122 BIC #17, 3» 

027114 050037 027122 BIS R0,3) 

027120 104414 ROMCLK 



:R1 CONTAINS BASE DMCll ADDRESS 

; MASTER CLEAR DMCll 

I MEM ♦ SP ADDRESS 

: POINTER TO CORRECT DATA 

tLOAD 8 UORDS OF MAIN MEMORY 

, POINTER TO DATA 

;LOAD 8 UORDS OF SP 

: POINTER TO DATA 

; CLEAR C BIT! 

iCLEAR ADDRESS FIELD OF INSTRUCTION 
sADD ADDRESS TO INSTRUCTION 
:NEXT UORD IS INSTRUCTION, ROMCLK PC-5304 
;LOAO MAR 

i CLEAR ADDRESS OF INSTRUCTION 

:AOD ADDRESS TO INSTRUCTION 

:NEXT UORD IS INSTRUCTION, ROMCLK PC-5304 



SEQ 99 
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027122 


040460 






3»: 


040400! 


<3*20> : 


BR _ INC A 


027124 


104414 








ROriCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC»5304 


027126 


061224 








61224 




MOVE BR TO P0RT4 


027150 


111205 








MOVB 


(R2).R5 1 


PUT "EXPECTED" IN R5 


027132 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 


027136 


120504 








CMPB 


R5.R4 i 


DATA CORRECT? 


027140 


001401 








BEQ 


4) 


BR IF YES 


027142 


104015 








EMT 


15 


ALU ERROR 


027144 


104401 






4$: 


SCOPl 




SW09-1? 


027146 


005202 








INC 


R2 sNEXT DATA 


027150 


005200 








INC 


RO 


NEXT ADDRESS 


027152 


022700 


000010 






CMP 


«10,RO 


DONE YET? 


027156 


001342 








BNE 


1* 


BR IF NO 


027160 


104400 








SCOPE 




SCOPE THIS TEST 


027162 


001 


001 


000 


5»: 




BYTE 


1,1.0.0.126.126,253.253 


027165 


000 


126 


126 












027170 


253 


253 






















.EVEN 






















******4>4t****«******«**«**** TEST 111 *************************** 














*ALU TEST 
















*TEST 


OF ALU FUNCTION 2A WITH C BIT CLEARED 














*ALU FUNCTION (A PLUS A) C0DE«5 














*L0A0 


MAIN MEM AND SP WITH 8 WORDS OF DATA 














*PERFORM THE FUNCTION, VERIFY THE RESULTS 














: *************************************************************** 














TEST 


111 




027172 


012737 


000111 


001226 


TSTlll: 


MOV 


♦lll.TSTNO 




027200 


012737 


027346 


001216 




MOV 


♦TST112.NEXT 




027206 


012737 


027240 


001220 




MOV 


»1I.L0CK 




















;R1 CONTAINS BASE DMCll ADDRESS 


027214 


104412 








MSTCLR 




; MASTER CLEAR DMCll 


027216 


005000 








CLR 


RO 


iMEM * SP ADDRESS 


027220 


012702 


027336 






MOV 


«S$,R2 


; POINTER TO CORRECT DATA 


027224 


004737 


034726 






JSR 


PC.MEMLD 


;LOAD 8 WORDS OF MAIN MEMORY 


027230 


035052 








MEMOAT 




: POINTER TO DATA 


027232 


004737 


034762 






JSR 


PC.SPLO 


iLOAD 8 WORDS OF SP 


027236 


035062 








SPOAT 




! POINTER TO DATA 


027240 


004737 


035026 




li: 


JSR 


PC.CLRC 


s CLEAR C BIT! 


027244 


042737 


000017 


027260 




BIG 


#17. 2» 


(CLEAR ADDRESS FIELD OF INSTRUCTION 


027252 


050037 


027260 






BIS 


R0.2t 


(ADD ADDRESS TO INSTRUCTION 


027256 


104414 








ROMCLK 




:NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


027260 


010000 






2): 


010000 




:L0A0 MAR 


027262 


042737 


000017 


027276 




BIC 


»17,3I 


i CLEAR ADDRESS OF INSTRUCTION 


027270 


050037 


027276 






BIS 


R0.3) 


iAOO ADDRESS TO INSTRUCTION 


027274 


104414 








ROMCLK 


:NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


027276 


040520 






3$: 


040400! 


<5*20> 


>BR . 2A 


027300 


104414 








ROMCLK 




sNEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


027302 


061224 








61224 




iMOVE BR TO P0RT4 


027304 


111205 








MOVB 


CR2),R5 


sPUT "EXPECTED" IN R5 


027306 


116104 


000004 






MOVB 


4CR1).R4 


-.PUT -FOUND" IN R4 


027312 


120504 








CMPB 


R5.R4 


sDATA CORRECT? 


027314 


001401 








BEQ 


41 


:BR IF YES 


027316 


104015 








EMT 


15 


;ALU ERROR 
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SEQ 100 



027320 


104401 






4»: 


SCOPl 




SU09'1? 


027322 


005202 








INC 


R2 


NEXT DATA 


027324 


005200 








INC 


RO 


NEXT ADDRESS 


027326 


022700 


000010 






CUP 


*10,R0 


DONE YET? 


027532 


001342 








BNE 


It 


BR IF NO 


027334 


104400 








SCOPE 




SCOPE THIS TEST 


027336 


000 


000 


376 


5»: 


-BYTE 


0 . 0 . 376 . 376 . 252 , 252 . 124 . 124 


027341 


376 


252 


252 










027344 


124 


124 













86 



.EVEN 



*************************** TEST 112 *************************** 

*ALU TEST 

♦TEST OF ALU FUNCTION A PLUS C WITH C BIT CLEARED 
•ALU FUNCTION (A PLUS C) CODE-4 
•LOAD MAIN MEM AND SP UITH 8 UORDS OF DATA 
•PERFORM THE FUNCTION. VERIFY THE RESULTS 

: *************************************************************** 



TEST 112 





Ai 07X7 


AAA1 1 O 




TQT1 1 O • 
1 9 1 lie : 


Hnu 
nu V 


♦112.TSTN0 






r 


/M 07X7 


no7C35 
\JC fJCC 


AA 131^ 




nuv 


#TST113.NEXT 








ftl 07X7 


ftp 74 1 A 


AAi Opft 




nuv 


*1».L0CK 


Rl CONTAINS BASE DMCll ADDRESS 


















MASTER CLEAR DMCll 






W JWV 










RO 


MEM ♦ SP ADDRESS 




QP7X7A 




ftp 75 12 








«5i.R2 


POINTER TO CORRECT DATA 




ft? 7AOO 


Vw*t 1 O f 


034726 






I^R 


PC.MEMLD 


LOAD 8 UORDS OF MAIN MEMORY 




027404 


035052 








MEWAT 




POINTER TO DATA 




027406 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 UORDS OF SP 




027412 


035062 








SPOAT 




POINTER TO DATA 




027414 


004737 


035026 




It: 


JSR 


PC.CLRC sCLEAR C BIT! 




027420 


042737 


000017 


027434 




BIC 


♦17.2$ 


CLEAR ADDRESS FIELD OF INSTRUCTION 


027426 


050037 


027434 






BIS 


R0,2$ 


ADD ADDRESS TO INSTRUCTION 




027432 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK 


PC -5304 


027434 


010000 






2»: 


010000 




,LOAD MAR 




027436 


042737 


000017 


027452 




BIC 


*17,3» 


s CLEAR ADDRESS OF INSTRUCTION 




027444 


050037 


027452 






BIS 


R0.3$ 


ADO ADDRESS TO INSTRUCTION 




027450 


104414 








ROMCLK 




iNEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


027452 


040500 






3$: 


040400! 


<4*20> 


'BR A PLUS C 




027454 


104414 








ROMCLK 




-NEXT UORD IS INSTRUCTION. ROMCLK 


PC =-5304 


027456 


061224 








61224 




■MOVE BR TO P0RT4 




027460 


111205 








MOVB 


(R2).R5 


iPUT "EXPECTED" IN R5 




027462 


116104 


000004 






MOVB 


4(R1}.R4 


PUT "FOUND" IN R4 




027466 


120504 








CMPB 


RS,R4 


iOATA CORRECT? 




027470 


001401 








BEQ 


4) ;BR IF YES 




027472 


104015 








EMT 


15 


ALU ERROR 




027474 


104401 






4>: 


SCOPl 




SW09-1? 




027476 


005202 








INC 


R2 


NEXT DATA 




027500 


005200 








INC 


RO 


NEXT ADDRESS 




027502 


022700 


000010 






CMP 


«10.R0 


DONE YET? 




027506 


001342 








BNE 


It 


BR IF NO 




027510 


104400 








SCOPE 




SCOPE THIS TEST 




027512 


000 


000 


377 


5»: 


.BYTE 


0.0,-1.-1.125.125.252.252 




027515 


377 


125 


125 













SEQ 101 
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87 

TEST 113 *************************** 

;*ALU TEST 

:*TEST OF ALU FUNCTION 2'S COUP SUB WITH C BIT CLEARED 
!*ALU FUNCTION (A-B 1) CODE-17 
;*LOAD MAIN riEM AND SP UITH 8 UOROS OF DATA 
s*PERFORM THE FUNCTION. VERIFY THE RESULTS 

; : *************************************************************** 



: TEST 113 



027522 


012737 


000113 


001226 


TST113: 


MOV 


♦113.TSTN0 






027530 


012737 


027676 


001216 




MOV 


♦TST114.NEXT 






027336 


012737 


027570 


001220 




MOV 


«1$.L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




027544 


104412 








MSTCLR 




MASTER CLEAR DMCll 




027546 


005000 








CLR 


RO ! 


MEM ♦ SP ADDRESS 




027550 


012702 


027666 






MOV 


♦5».R2 


POINTER TO CORRECT DATA 




027554 


004737 


034726 






JSR 


PC.MEMLO 


LOAD 8 WORDS OF MAIN MEMORY 




027560 


035052 








ME MOAT 




POINTER TO DATA 




027562 


004737 


034762 






JSR 


PC.SPLO ! 


LOAD 8 WORDS OF SP 




027566 


035062 








SPDAT 




POINTER TO DATA 




027570 


004737 


035026 




It : 


JSR 


PC.CLRC jCLEAR C BIT! 




027574 


042737 


AA AA 4 "7 

000017 


A'^^£ 4 A 

027610 




BIC 


♦17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


027602 


050037 


027610 






BIS 


R0.2» 


ADD ADDRESS TO INSTRUCTION 




027606 


104414 








ROHCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


027610 


/\ 4 A AAA 

010000 






OA . 

ct : 


0100 OQ 




LOAD MAR 




027612 


/\M 

042737 


000017 


AO T£ 1£ 

OZ '626 




Die 


♦17.31 


CLEAR ADDRESS OF INSTRUCTION 






VOvv^ f 










R0,3> sADD ADDRESS TO INSTRUCTION 




027624 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC-5304 


027626 


040760 






3>: 


040400! 


<17*20> 


BR _ 2'S COMP SUB 




027630 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


027632 


061224 








61224 




MOVE BR TO P0RT4 




027634 


111205 








MOVB 


(R2).R5 


PUT "EXPECTED" IN R5 




027636 


116104 


000004 






MOVB 


4(R1).R4 


PUT -FOUND" IN R4 




027642 


120504 








CMPB 


R5.R4 


.DATA CORRECT? 




027644 


001401 








BEQ 


4) 


;BR IF YES 




027646 


104015 








EMT 


15 


;ALU ERROR 




027650 


104401 






4$: 


SCOPl 




iSU09-l? 




027652 


005202 








INC 


R2 


(NEXT DATA 




027654 


005200 








INC 


RO 


(NEXT ADDRESS 




027656 


022700 


000010 






CMP 


«10.RO (DONE YET? 




027662 


001342 








BNE 


1» 


;BR IF NO 




027664 


104400 








SCOPE 


! SCOPE THIS TEST 




027666 


377 


000 


376 


5*; 


.BYTE 


-1.0.376.-1,-1.252.124.-1 




027671 


377 


377 


252 












027674 


124 


377 















.EVEN 
88 

**************************** TEST 114 *************************** 

s*ALU TEST 

:*TEST OF ALU FUNCTION DEC A WITH C BIT CLEARED 
:*ALU FUNCTION CA-1) C0DE>7 



CZDnC HACRO VC4.00 
DMCll ALU TESTS 
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SEQ 102 



:*LOAO MAIN HEH AND SP UITH 8 UORDS OF DATA 
j*PERFORN THE FUNCTION. VERIFY THE RESULTS 

! TEST 114 



027676 


012737 


000114 


001226 


TST114: 


MOV 


*114.TSTN0 






027704 


012737 


030052 


001216 




MOV 


♦TST115.NEXT 






027712 


012737 


027744 


001220 




MOV 


«1*,L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




027720 


104412 








MSTCLR 




MASTER CLEAR DMCll 




027722 


005000 








CLR 


RO 


MEM * SP ADDRESS 




027724 


012702 


030042 






MOV 


«S$.R2 


POINTER TO CORRECT DATA 




027730 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 




027734 


035052 








MEMOAT 




POINTER TO DATA 




027736 


004737 


034762 






JSR 


PC.SPLO 


LOAD 8 WORDS OF SP 




027742 


035062 








SPDAT 




POINTER TO DATA 




027744 


004737 


035026 




1*: 


JSR 


PC.CLRC 


CLEAR C BIT! 




027750 


042737 


000017 


027764 




BIC 


♦17. 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 


027756 


050037 


027764 






BIS 


R0.2* 


ADD ADDRESS TO INSTRUCTION 




027762 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


027764 


010000 






2): 


010000 




LOAD MAR 


027766 


042737 


000017 


030002 




BIC 


♦17, 3» 


CLEAR ADDRESS OF INSTRUCTION 




027774 


050037 


030002 






BIS 


R0,3$ 


ADD ADDRESS TO INSTRUCTION 




030000 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC "5304 


030002 


040560 






31: 


040400! 


<7«20> 


BR DEC A 




030004 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


030006 


061224 








61224 




MOVE BR TO P0RT4 




030010 


111205 








MOVB 


(R2).R5 


PUT "EXPECTED" IN R5 




030012 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 




030016 


120504 








CMPB 


R5.R4 


.DATA CORRECT? 




030020 


001401 








BEQ 


4$ iBR IF YES 




030022 


104015 








EMT 


15 


ALU ERROR 




030024 


104401 






4$: 


SCOPl 


;SM09-1? 




030026 


005202 








INC 


R2 iNEXT DATA 




030030 


005200 








INC 


RO iNEXT ADDRESS 




030032 


022700 


000010 






CMP 


♦10. RO (DONE YET? 




030036 


001342 








BNE 


11 


:BR IF NO 




030040 


104400 








SCOPE 


{SCOPE THIS TEST 




030042 


377 


377 


376 


5$: 


.BYTE 


-1.-1.376. 376. 124. 124. 251. 251 




030045 


376 


124 


124 












030050 


251 


251 















.EVEN 
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i*************************** TEST 115 *************************** 

j*ALU TEST 

j»TEST OF ALU FUNCTION SEL B UITH C BIT SET 
:«ALU FUNCTION (B) COOE-11 
i*LOAD MAIN MEM AND SP UITH 8 UORDS OF DATA 
:*PERFORM THE FUNCTION. VERIFY THE RESULTS 

; TEST 115 

030052 012737 000115 001226 TST115: MOV ♦115.TSTNG 
030060 012737 030226 001216 MOV ♦TST116.NEXT 



CZOHC MACRO V04.00 
DMCll ALU TESTS 



27-JUN-8S 13:16:37 PAGE 27-64 



SEQ 103 



030066 


012737 


030120 


001220 




MOV 


«lt.LOCK 


Rl CONTAINS BASE OMCll ADDRESS 




030074 


104412 








fISTCLR 




MASTER CLEAR DMCll 




030076 


005000 








CLR 


RO 


MEM * SP ADDRESS 




030100 


012702 


030216 






MOV 


«5t.R2 


POINTER TO CORRECT DATA 




030104 


004737 


034726 






JSR 


PC.MEMLO 


LOAD 8 WORDS OF MAIN MEMORY 




030110 


035052 








MEMOAT 




POINTER TO DATA 




030112 


004737 


034762 






JSR 


PC.SPLO 


LOAD 8 WORDS OF SP 




030116 


035062 








SPDAT 




POINTER TO DATA 




030120 


004737 


035040 




1<: 


JSR 


PC.SETC 


SET C BIT! 




030124 


042737 


000017 


030140 




BIC 


#17.21 


CLEAR ADDRESS FIELD OF INSTRUCTION 


030132 


050037 


030140 






BIS 


R0.2I 


ADD ADDRESS TO INSTRUCTION 




030136 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


030140 


010000 






21: 


010000 




LOAD MAR 




030142 


042737 


000017 


030156 




BIC 


♦17. 3t 


CLEAR ADDRESS OF INSTRUCTION 




030150 


050037 


030156 






BIS 


R0.3I 


ADD ADDRESS TO INSTRUCTION 




030154 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


030156 


040620 






31: 


040400! 


<11*20> 


BR SEL B 




030160 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC "5304 


030162 


061224 








61224 




MOVE BR TO P0RT4 




030164 


111205 








MOVB 


(R2).R5 


PUT "EXPECTED- IN R5 




030166 


116104 


000004 






MOVB 


4(R1),R4 


.PUT "FOUND" IN R4 




030172 


120504 








CMPB 


R5.R4 


[DATA CORRECT? 




030174 


001401 








BEQ 


4$ 


jBR IF YES 




030176 


104015 








EMT 


15 


,ALU ERROR 




030200 


104401 






4>: 


SCOPl 




iSU09-l? 




030202 


005202 








INC 


R2 


;NEXT DATA 




030204 


005200 








INC 


RO 


;NEXT ADDRESS 




030206 


022700 


000010 






CMP 


«10.R0 


[DONE YET? 




030212 


001342 








BNE 


1« 


iBR IF NO 




030214 


104400 








SCOPE 




1 SCOPE THIS TEST 




030216 


000 


377 


000 


5»: 


.BYTE 


0.-1.0.-1.125.252,125.252 




030221 


377 


125 


252 












030224 


125 


252 















.EVEN 



90 



i*************************** TEST 116 *************************** 
i*ALU TEST 

i*TEST OF ALU FUNCTION SEL A WITH C BIT SET 
i*ALU FUNCTION (A) CODE -10 
i*LOM> MAIN MEN AND SP WITH 8 WORDS OF DATA 
i*PERFORH THE FUNCTION. VERIFY THE RESULTS 

I ; *************************************************************** 

t TEST 116 



030226 012737 000116 001226 TST116: MOV «116.TSTN0 
030234 012737 030402 001216 MOV *TST117.NEXT 

030242 012737 030274 001220 MOV *1«.L0CK 



030250 104412 

030252 005000 

030254 012702 030372 

030260 004737 034726 

030264 035052 

030266 004737 034762 



MSTCLR 

CLR RO 

MOV ♦5».R2 

JSR PC.MENLD 
MEMDAT 

JSR PC.SPLD 



tRl CONTAINS BASE DMCll ADDRESS 

{MASTER CLEAR DMCll 

iMEM * SP ADDRESS 

{POINTER TO CORRECT DATA 

I LOAD 8 WORDS OF MAIN MEMORY 

{POINTER TO DATA 

{LOAD 8 WORDS OF SP 
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030272 


035062 








SPOAT 




POINTER TO DATA 




030274 


004737 


035040 




11: 


JSR 


PC . SETC 


SET C BIT! 




030300 


042737 


000017 


030314 




BIC 


«17,2« 


CLEAR ADDRESS FIELD OF INSTRUCTION 




030306 


050037 


030314 






BIS 


R0.2I 


ADO ADDRESS TO INSTRUCTION 




030312 


104414 








ROnCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC-b304 


030314 


010000 






21: 


010000 




LOAD HAR 




030316 


042737 


000017 


030332 




BIC 


«17,3* 


CLEAR ADDRESS OF INSTRUCTION 




03032' 


050037 


030332 






BIS 


R0,3$ 


ADO ADDRESS TO INSTRUCTION 




030330 


104414 








RQnCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC- 


J WW 


030332 


040600 






3<: 


040400! 


<10*20> 


;BR _ SEL A 


030334 


104414 








ROnCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC' 


•5304 


030336 


061224 








61224 




,MOVE BR TO P0RT4 


030340 


111205 








novB 


(R2).R5 


PUT "EXPECTED" IN R5 




030342 


116104 


000004 






novB 


4CR1).R4 


PUT "FOUND" IN R4 




030346 


120504 








CMPB 


R5.R4 


DATA CORRECT? 




030350 


001401 








BEQ 


4» 


iBR IF YES 




030352 


104015 








EMT 


15 


iALU ERROR 




030354 


104401 






4$: 


SCOPl 




iSU09-17 




030556 


005202 








INC 


R2 iNEXT DATA 




030360 


005200 








INC 


RO 


iNEXT ADDRESS 




030362 


022700 


000010 






CMP 


«10.R0 


■DONE YET? 




030366 


001342 








BNE 


11 iBR IF NO 




030370 


104400 








SCOPE 


; SCOPE THIS TEST 




030372 


000 


000 


377 


5«: 


.BYTE 


0.0.-1,-1.125.125.252.252 




030375 


377 


125 


125 












030400 


252 


252 






















.EVEN 






































:*ALU TEST 
















;*TEST 


OF ALU FUNCTION A 


OR NOTB WITH C BIT SET 














i*M.U FUNCTION CA OR NOTB) COOE-12 














i*LOM> riAIN MEN AND SP WITH 8 UOROS OF DATA 














i*PERFORn THE FUNCTION. VERIFY THE RESULTS 














t TEST 


117 






030402 


012737 


000117 


001226 


TST117: 


NOV 


•117.TSTN0 






030410 


012737 


030556 


001216 




NOV 


♦TST 120. NEXT 






030416 


012737 


030450 


001220 




NOV 


«1*.L0CK 




















tRl CONTAINS BASE OHCll ADDRESS 




030424 


104412 








MSTCLR 




i MASTER CLEAR DMCll 




030426 


005000 








CLR 


RO 


iMEM ♦ SP ADDRESS 




030430 


012702 


030546 






NOV 


•5».R2 


t POINTER TO CORRECT DATA 




030434 


004737 


034726 






JSR 


PC.HEHLO 


;LOAO 8 UORDS OF MAIN MEMORY 




030440 


035052 








HEHOAT 


1 POINTER TO DATA 




030442 


004737 


034762 






JSR 


PC.SPLO 


iLOAO 8 WORDS OF SP 




030446 


035062 








SPDAT 




1 POINTER TO DATA 




03C450 


004737 


035040 




11: 


JSR 


PC. SETC 


;SET C BIT! 




030454 


042737 


000017 


030470 




BIC 


#17,2$ 


; CLEAR ADDRESS FIELD OF INSTRUCTION 




030462 


050037 


030470 






BIS 


R0.2* 


.ADD ADDRESS TO INSTRUCTION 




030466 


104414 








ROnCLK 


iNEXT yORD IS INSTRUCTION. ROnaK PC 


■5304 


030470 


010000 






21: 


010000 


iLOAO NAR 




030472 


042737 


000017 


030506 




BIC 


•17.31 


iCLEAR ADDRESS OF INSTRUCTION 




030500 


050037 


030506 






BIS 


R0.3I 


;ADO ADDRESS TO INSTRUCTION 
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SCO 105 



03CSO4 


1C4414 








ROfKLK 




NEXT UORD IS INSTRUCTION. 


030506 


040640 






3t: 


040400! 


<12.?0» 


BR A OR NOTB 


030510 


104414 








ROHCLK 




NEXT UORD IS INSTRUCTION. 


030512 


061224 








61224 




MOVE BR TO P0RT4 


030514 


111205 








tlOVB 


(R2).R5 


PUT "EXPECTED- IN R5 


030516 


116104 


000004 






WVB 


4(R1).R4 


.PUT 'FOUND- IN R4 


030522 


120504 








CMPB 


R5.R4 


DATA CORRECT? 


030524 


001401 








BEO 


4t 


BR IF YES 


030526 


104015 








EMT 


15 


ALU ERROR 


010530 


104401 






4t: 


SCOPl 




SU09-1? 


030532 


005202 








INC 


R2 


NEXT DATA 


030534 


005200 








INC 


RO 


,NEXT ADDRESS 


030536 


022700 


000010 






CMP 


«10,R0 


iOONE YET? 


030542 


001342 








BNE 


li 


,BR IF NO 


030544 


104400 








SCOPE 




[SCOPE THIS TEST 


030546 


377 


000 


377 


5»: 


• BYTE 


-1.0. -1. 1,-1.125.252.-1 


030551 


377 


377 


125 










030554 


252 


377 
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TEST 120 *************************** 

;*ALU TEST 

:*TEST OF ALU FUNCTION A AND B WITH C BIT SET 
i*ALU FUNCTION CA AND B) CODE-13 
:*L0AD MAIN MEM AND SP UITH 8 UORDS OF DATA 
!*PERFORM THE FUNCTION. VERIFY THE RESULTS 

{ : *************************************************************** 



; TEST 120 



030556 


012737 


000120 


001226 


TST120: 


MOV 


♦120.TSTNG 






030564 


012737 


030732 


001216 




MOV 


♦TST121.NEXT 






030572 


012737 


030624 


001220 




MOV 


«1*.L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




030600 


104412 








MSTCLR 




MASTER CLEAR DMCll 




030602 


005000 








CLR 


RO 


MEM ♦ SP ADDRESS 




030604 


012702 


030722 






MOV 


*5».R2 


POINTER TO CORRECT DATA 




030610 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 




030614 


035052 








MEMOAT 




POINTER TO DATA 




030616 


004737 


034762 






JSR 


PC.SPLD 


,LOAD 8 WORDS OF SP 




030622 


035062 








SPDAT 




POINTER TO DATA 




030624 


004737 


035040 




1»: 


JSR 


PC.SETC 


SET C BIT! 




030630 


042737 


000017 


030644 




BIC 


♦17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


030636 


050037 


030644 






BIS 


R0.2» 


ADD ADDRESS TO INSTRUCTION 




030642 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


PC-5304 


030644 


010000 






2»: 


010000 




LOAD MAR 




030646 


042737 


000017 


030662 




BIC 


♦17. 3» 


CLEAR ADDRESS OF INSTRUCTION 




030654 


050037 


030662 






BIS 


R0.3* 


ADO ADDRESS TO INSTRUCTION 




030660 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


PC -5304 


030662 


040660 






3»: 


040400! <13*20> 


BR A AND B 




030664 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


PC-5304 


030666 


061224 








61224 




MOVE BR TO P0RT4 




030670 


111205 








MOVB 


(R2).R5 


PUT "EXPECTED" IN R5 




030672 


116104 


000004 






MOVB 


4CR1).R4 


PUT "FOUND" IN R4 




030676 


120504 








CMP3 


R5.R4 


DATA CORRECT? 




03370C 


001401 








6EQ 


4» 


BR IF YES 
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O^Cll ALU TESTS 



030702 


104015 








EHT 


15 




ALU ERROR 


03070A 


104401 






4»: 


SCOP I 






SUC9-1? 


030706 


005202 








INC 


R2 




NEXT DATA 


030710 
030712 


005200 








INC 


RO 




NEXT ADDRESS 


022700 


000010 






CMP 


*10.R0 




DONE YET? 


030716 


001342 








BNE 


IS 




BR IF NO 


030720 


104400 








SCOPE 






SCOPE THIS TEST 


030722 


000 


000 


000 


5»: 


.BYTE 


0.0.0. 


1.125.0.0,252 


030''25 


377 


125 


000 












0?07S0 


000 


252 
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**************************** TEST 121 *************************** 

;*ALU TEST 

;*TEST OF ALU FUNCTION A OR B UITH C BIT SET 
J* ALU FUNCTION (A OR B) CODE- 14 
:*LOAD MAIN MEM AND SP UITH 8 UOROS OF DATA 
:*PERFORM THE FUNCTION. VERIFY THE RESULTS 

; : *************************************************************** 

; TEST 121 



i 







V W X C X 
















V * 


VAC f w r 


V J X A Vv 






MOV 










030746 


01P737 


051000 

V*/ <fcV w 










Rl CONTAINS BASE OMCll ADDRESS 






030754 


104412 








MSTCLR 




MASTER CLEAR DMCll 






030756 


005000 








CLR 


RO 

"V 


MEM ♦ SP ADDRESS 






030760 


012702 


031076 






MOV 


«5$.R2 


POINTER TO CORRECT DATA 






030764 


004737 


034726 






JSR 


PC.MEMLO 


LOAD 8 WORDS OF MAIN MEMORY 






030770 


035052 








MEMOAT 




POINTER TO DATA 






030772 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 WORDS OF SP 






030776 


035062 








SPDAT 




POINTER TO DATA 






031000 


004737 


035040 




1$: 


JSR 


PC.SETC 


SET C BIT! 






031004 


042737 


000017 


031020 




6IC 


•17.21 


CLEAR ADDRESS FIELD OF INSTRUCTION 




031012 


050037 


031020 






BIS 


R0.2» 


,ADD ADDRESS TO INSTRUCTION 






031016 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


5304 


031020 


010000 






2): 


010000 




,LOAD MAR 






031022 


042737 


000017 


031036 




BIC 


#17.3* 


CLEAR ADDRESS OF INSTRUCTION 






031030 


050037 


031036 






BIS 


R0.3$ 


ADD ADDRESS TO INSTRUCTION 






031034 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


•5304 


031036 


040700 






3$: 


040400! 


<14*20> 


BR A OR B 






031040 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


•5304 


031042 


061224 








61224 




MOVE BR TO P0RT4 






031044 


111205 








MOVB 


CR2),R5 


,PUT "EXPECTED" IN R5 






031046 


116104 


000004 






MOVB 


4CR1).R4 


,PUT "FOUND" IN R4 






031052 


120504 








CMPB 


R5.R4 


iDATA CORRECT? 






031054 


001401 








BEO 


4$ 


BR IF YES 






031056 


104015 








EMT 


15 


ALU ERROR 






031060 


104401 






4): 


SCOPl 




SU09-1? 






031062 


005202 








INC 


R2 


NEXT DATA 






031064 


005200 








INC 


RO 


NEXT ADDRESS 






031066 


022700 


000010 






CMP 


#10, RO 


DONE YET? 






031072 


001342 








BNE 


1* 


BR IF NO 






031074 


104400 








SCOPE 




SCOPE THIS TEST 






031076 


000 


377 


377 


5i: 


.BYTE 


0,-1. 1. 1.125. 1. 1,252 
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031101 377 125 377 
031104 377 252 

.EVEN 
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TEST 122 *************************** 

;*ALU TEST 

s*TEST OP ALU PUNCTION A XOR B UITH C BIT SET 
:*ALU FUNCTION (A XOR B) CODE-15 
:*LOAD MAIN ^€M AND SP UITH 8 UORDS Of DATA 
;*PERrORM THE FUNCTION. VERIFY THE RESULTS 

••**************************«******««**«****««««*«««««*«*«««««««* 



; TEST 122 



031106 


012737 


000122 


001226 


TST122: 


MOV 


#122.TSTN0 






031114 


012737 


031262 


001216 




MOV 


#TST 123. NEXT 






031122 


012737 


031154 


001220 




MOV 


«1».L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




031130 


104412 








MSTCLR 




MASTER CLEAR OMCll 




031132 


005000 








CLR 


RO 


MEM ♦ SP ADDRESS 




031134 


012702 


031252 






MOV 


*5».R2 


POINTER TO CORRECT DATA 




031140 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 UORDS OF MAIN MEMORY 




031144 


035052 








MEMO AT 




POINTER TO DATA 




031146 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 UORDS OF SP 




031152 


035062 








SPDAT 




POINTER TO DATA 




031154 


004737 


035040 




1*: 


JSR 


PC.SETC 


SET C BIT! 




031160 


042737 


000017 


031174 




BIC 


#17,2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


031166 


050037 


031174 






BIS 


R0.2$ 


ADO ADDRESS TO INSTRUCTION 




031172 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


PC -5304 


031174 


010000 






2): 


010000 




LOAD MAR 




031176 


042737 


000017 


031212 




BIC 


#17.3* 


CLEAR ADDRESS OF INSTRUCTION 




031204 


050037 


031212 






BIS 


R0.3* 


ADO ADDRESS TO INSTRUCTION 




031210 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK 


PC -5304 


031212 


040720 






3»: 


040400! 


<15»20> 


BR _ A XOR B 




031214 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC =5304 


031216 


061224 








61224 




MOVE BR TO P0RT4 




031220 


111205 








MOVE 


(R2).R5 


PUT -EXPECTED" IN R5 




031222 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 




031226 


120504 








CMPB 


R5,R4 


DATA CORRECT? 




031230 


001401 








BEQ 


4$ 


BR IF YES 




031232 


104015 








EMT 


15 


ALU ERROR 




031234 


104401 






4$: 


SCOPl 




SU09-1? 




031236 


005202 








INC 


R2 


NEXT DATA 




031240 


005200 








INC 


RO 


NEXT ADDRESS 




031242 


022700 


000010 






CMP 


#10. RO 


DONE YET? 




031246 


001342 








BNE 


1$ 


iBR IF NO 




031250 


104400 








SCOPE 




.SCOPE THIS TEST 




031252 


000 


377 


377 


5$: 


.BYTE 


O.-l.-l.O.O.-l.-l.O 




031255 


000 


000 


377 












031260 


377 


000 















.EVEN 
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:***i *********************** TEST 123 *************************** 

;*ALU TEST 

;*TEST OF ALU FUNCTION ADD UITH C BIT SET 
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DHCll ALU TESTS 

!*ALU FUNCTION (A PLUS B) COOE^OO 
s*LOAO MAIN NEM AND SP UITH 8 WORDS OF DATA 
:*PERF0R»1 THE FUNCTION. VERIFY THE RESULTS 



s TEST 123 



031262 


012737 


000123 


001226 


TST123: 


MOV 


•123.TSTN0 








031270 


012737 


031436 


001216 




NOV 


♦TST 124. NEXT 








031276 


012737 


031330 


001220 




NOV 


«lt,L0CK 




Rl CONTAINS BASE DMCll ADDRESS 




031304 


104412 








HSTCLR 






MASTER CLEAR DMCll 




031306 


005000 








CLR 


RO 




MEM ♦ SP ADDRESS 




031310 


012702 


031426 






MOV 


*5I.R2 




POINTER TO CORRECT DATA 




031314 


004737 


034726 






JSR 


PG.MEMLD 




LOAD 8 WORDS OF MAIN MEMORY 




031320 


035052 








MEMDAT 






POINTER TO DATA 




031322 


004737 


034762 






JSR 


PG.SPLD 




LOAD 8 WORDS OF SP 




031326 


035062 








SPDAT 






POINTER TO DATA 




031330 


004737 


035040 




1»: 


JSR 


PC.SETG 




SET C BIT! 




031334 


042737 


000017 


031350 




BIG 


#17. 2» 




CLEAR ADDRESS FIELD OF INSTRUCTION 


031342 


050037 


031350 






BIS 


R0,2$ 




ADD ADDRESS TO INSTRUCTION 




031346 


104414 








ROMCLK 






NEXT WORD IS INSTRUCTION. ROMCLK 


PC "5304 


031350 


010000 






2»: 


010000 






LOAD MAR 




031352 


042737 


000017 


031366 




BIG 


#17.31 




CLEAR ADDRESS OF INSTRUCTION 




031360 


050037 


031366 






BIS 


R0.3) 




ADD ADDRESS TO INSTRUCTION 




031364 


104414 








ROMCLK 






NEXT WORD IS INSTRUCTION, ROMCLK 


PC -5304 


031366 


040400 






3$: 


040400 ! 


<00*20> 




BR ADD 




031370 


104414 








ROMCLK 






NEXT WORD IS INSTRUCTION, ROMCLK 


PC =5304 


031372 


061224 








61224 






MOVE BR TO P0RT4 




031374 


111205 








MOVB 


(R2).R5 


;PUT "EXPECTED" IN R5 




031376 


116104 


000004 






MOVB 


4(R1),R4 




PUT "FOUND" IN R4 




031402 


120504 








CMPB 


R5.R4 




DATA CORRECT? 




031404 


001401 








BEQ 


4$ 




BR IF YES 




031406 


104015 








EMT 


15 




ALU ERROR 




031410 


104401 






4$: 


SCOPl 






!SW09»1? 




031412 


005202 








INC 


R2 




.NEXT DATA 




031414 


005200 








INC 


RO 




,NEXT ADDRESS 




031416 


022700 


000010 






CMP 


#10, RO 




DONE YET? 




031422 


001342 








BNE 


1» 




BR IF NO 




031424 


104400 








SCOPE 






.SCOPE THIS TEST 




031426 


000 


377 


377 


51: 


.BYTE 


0.-1.-1.376.252. 


-1.-1.124 




031431 


376 


252 


377 














031434 


377 


124 
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TEST 124 *************************** 

!*ALU TEST 

s*TEST OF ALU FUNCTION 2A W/C UITH C BIT SET 
i*ALU FUNCTION CA PLUS A PLUS C) CODE-6 
i*LOAD MAIN MEM AND SP UITH 9 UORDS OF DATA 
;*PERFORM THE FUNCTION. VERIFY THE RESULTS 

; :*************************************************************** 

i TEST 124 



031436 012737 000124 001226 TST124: MOV *124,TSTN0 



CZinC riACRO V04.00 
our 11 ALU TESTS 



27-JUN-85 15: 16; 37 PAGE 27-70 



SEQ 109 



031444 


012737 


031612 


001216 


031452 


012737 


031504 


001220 


031460 


104412 






031462 


005000 






031464 


012702 


031602 




031470 


004737 


054726 




031474 


055052 






031476 


004757 


054762 




031S02 


055062 






031504 


004737 


035040 




031510 


042737 


000017 


031524 


031516 


050057 


031524 




031522 


104414 






031524 


010000 






031526 


042737 


000017 


031542 


031534 


050037 


051542 




031540 


104414 






031542 


040540 






031544 


104414 






031546 


061224 






031550 


111205 






051552 


116104 


000004 




031556 


120504 






051560 


001401 






031562 


104015 






051564 


104401 






031566 


005202 






051570 


005200 






051572 


022700 


000010 




051576 


001342 






051600 


104400 






031602 


001 


001 


377 


031605 


377 


253 


253 


031610 


125 


125 
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1»; 



2$: 



3$: 



4»i 



.EVEN 





4TST125.NEXT 








nov 


«1$.L0CK 


Rl CONTAINS BASE OHCll ADDRESS 






HSTCLR 




MASTER CLEAR OMCll 






CLR 


RO i 


MEM * SP ADDRESS 






MOV 


#51. R2 i 


POINTER TO CORRECT DATA 






JSR 


PC.MEMLD i 


LOAD 8 WORDS OF MAIN MEMORY 






MEWAT 




POINTER TO DATA 






JSR 


PC.SPLD ! 


LOAD 8 WORDS OF SP 






SPCAT 




POINTER TO DATA 






JSR 


PC.SETC 


SET C BIT! 






SIC 


*17.2$ 


CLEAR ADDRESS FIELD OF INSTRUCTION 




BIS 


R0.2» 


ADD ADDRESS TO INSTRUCTION 






ROMCLK 


NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


-5304 


010000 




LOAD MAR 






6IC 


#17.3$ 


CLEAR ADDRESS OF INSTRUCTION 






eis 


R0.3$ 


ADD ADDRESS TO INSTRUCTION 






ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC 


«5304 


040400! 


<6*20> 


BR 2A U/C 






ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK 


PC 


'5304 


61224 




(MOVE BR TO P0RT4 






MOVB 


{R2).R5 


PUT "EXPECTED" IN R5 






Move 


4{R1),R4 


iPUT "FOUND" IN R4 






CMPB 


R5.R4 


iOATA CORRECT? 






BEQ 


4« 


;BR IF YES 






EMT 


15 


;ALU ERROR 






SCOPl 


5SU09=1? 






INC 


R2 


;NEXT DATA 






INC 


RO 


iNEXT ADDRESS 






CMP 


#10. RO 


sDONE YET? 






BNE 


1) 


:BR IF NO 






SCOPE 




: SCOPE THIS TEST 






.BYTE 


1.1.-1.-1.253.253.125.125 







*************************** TEST 125 *************************** 

*ALU TEST 

*TEST OF ALU FUNCTION SUB UITH C BIT SET 
*ALU FUNCTION (A-B) CODE-16 
aLOAD main mem and SP WITH 8 WORDS OF DATA 
♦PERFORM THE FUNCTION. VERIFY THE RESULTS 

;*************************************************************** 

TEST 125 



031612 012737 000125 001226 TST125: MOV #125,TSTN0 
031620 012737 031766 001216 MOV #TST 126. NEXT 

031626 012737 031660 001220 MOV «1(.L0CK 



031634 104412 

031636 005000 

031640 012702 031756 

031644 004737 034726 

031650 035052 



MSTCLR 
CLR RO 
MOV #5».R2 
JSR PC .MEMLD 
MEMO AT 



Rl CONTAINS BASE OMCll ADDRESS 
MASTER CLEAR DMCll 
MEM ♦ SP ADDRESS 
POINTER TO CORRECT DATA 
LOAD 8 WORDS OF MAIN MEMORY 
{POINTER TO DATA 
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SEQ 110 



031652 


004737 


034762 


031656 


035062 




031660 


004737 


035040 


03166^ 


042737 


000017 


031671 


050037 


031700 


031676 


104414 




031700 


010000 




031702 


042737 


000017 


031710 


050037 


031716 


031714 


104414 




031716 


040740 




031720 


104414 




031722 


061224 




031724 


111205 




031726 


116104 


000004 


031732 


120504 




031734 


001401 




031736 


104015 




031740 


104401 




031742 


005202 




031744 


005200 




031746 


022700 


000010 


031752 


001342 




031754 


104400 




031756 


000 


001 


031761 


000 


000 


031764 


125 


000 
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JSR 


PC.SPLO ! 


LOAD 8 WORDS OF SP 




SPOAT 




POINTER TO DATA 


1»: 


JSR 


PC.SETC ! 


SET C BIT! 




BIC 


#17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 




BIS 


R0.2$ 


ADO ADDRESS TO INSTRUCTION 




ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC -5304 


2*: 


010000 




LOAD MAR 




BIC 


♦17.3* 


CLEAR ADDRESS OF INSTRUCTION 




BIS 


R0.3* 


ADD ADDRESS TO INSTRUCTION 




ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC -5304 


3): 


040400! 


<16*20> 


BR SUB 




ROMCLK 




NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 




61224 




MOVE BR TO P0RT4 




MOVB 


(R2).R5 


PUT "EXPECTED" IN R5 




MOVB 


4(R1).R4 


PUT "FOUND" IN R4 




CMPB 


R5,R4 


.DATA CORRECT? 




BEQ 


4* 


■BR IF YES 




EMT 


15 


ALU ERROR 


4): 


SCOPl 




SU09-1? 




INC 


R2 


;NEXT DATA 




INC 


RO 


.NEXT ADDRESS 




CMP 


«10.R0 


iDONE YET? 




BNE 


1* 


;BR IF NO 




SCOPE 




! SCOPE THIS TEST 


5$: 


.BYTE 


0,1.-1.0.0.253. 125.0 



253 



.EVEN 



*************************** TEST 126 *************************** 

*ALU TEST 

♦TEST OF ALU FUNCTION ADD W/C WITH C BIT SET 
*ALU FUNCTION (A PLUS B PLUS C) CODE-01 
*LOAO MAIN MEM AND SP UITH 8 UORDS OF DATA 
*PERFORM THE FUNCTION. VERIFY THE RESULTS 

:*************************************************************** 



031766 
031774 
032002 

032010 
032012 
032014 
032020 
032024 
032026 
032032 
032034 
032040 
032046 
032052 
032054 
032056 











; TEST 


126 




012737 


000126 


001226 


TST126: 


HOV 


♦126,TSTN0 




012737 


032142 


001216 




MOV 


#TST127.NEXT 




012737 


032034 


001220 




HOV 


«1$.L0CK 














;R1 CONTAINS BASE DMCll ADDRESS 


104412 








MSTCLR 




{MASTER CLEAR OMCll 


005000 








CLR 


RO 


:nEM « SP ADDRESS 


012702 


032132 






nov 


«5<.R2 


i POINTER TO CORRECT DATA 


004737 


034726 






JSR 


PC.MEMLD 


:LOAO 6 UORDS OF MAIN MEMORY 


035052 








MEHDAT 




iPOINTER TO DATA 


004737 


034762 






JSR 


PC.SPLD 


tLOAO 8 UORDS OF SP 


035062 








SPDAT 




s POINTER TO DATA 


004737 


035040 




1»: 


JSR 


PC.SETC 


sSET C BIT! 


042737 


000017 


032054 




BIC 


♦17. 2» 


:CLEAR ADDRESS FIELD OF INSTRUCTION 


050037 


032054 






BIS 


R0.2* 


;AOD ADDRESS TO INSTRUCTION 


104414 








ROMCLK 




iNEXT WORD IS INSTRUCTION. ROMCLK PC-5304 


010000 






2*: 


010000 




;LOAD MAR 


042737 


000017 


032072 




BIC 


♦17.3* 


: CLEAR ADDRESS OF INSTRUCTION 
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SEQ 111 



032064 


050037 


032072 






BIS 


R0.3$ 


ADD ADDRESS TO INSTRUCTION 


032070 


104414 








ROHCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


032072 


040420 






3*: 


040400! < 01 *20> 


BR ADO U/C 


032074 


104414 








ROMCLK 




NEXT UORD IS INSTRUCTION, ROMCLK 


032076 


061224 








61224 




MOVE BR TO P0RT4 


032100 


111205 








HOVB 


CR2).R5 


PUT "EXPECTED" IN R5 


032102 


116104 


000004 






MOVB 


4CR1).R4 


PUT -FOUND" IN R4 


032106 


120504 








CMPB 


R5.R4 


DATA CORRECT? 


032110 


001401 








BEQ 


4$ 


BR IF YES 


032112 


104015 








EMT 


15 


ALU ERROR 


032114 


104401 






4«: 


SCOPl 




SU09-1? 


032116 


005202 








INC 


R2 


NEXT DATA 


032120 


005200 








INC 


RO 


NEXT ADDRESS 


032122 


022700 


000010 






CMP 


#10, RO 


DONE YET? 


032126 


001342 








BNE 


It 


BR IF NO 


032130 


104400 








SCOPE 




SCOPE THIS TEST 


032132 


001 


000 


000 


5$: 


.BiriE 


1,0.0. 1.253.0.0.125 


032135 


377 


253 


000 










032140 


000 


125 













.EVEN 



99 



TEST 127 *************************** 

j*ALU TEST 

*TEST OF ALU FUNCTION SUB U/C UITH C BIT SET 
*ALU FUNCTION CA-B-C) CODE -2 
*LQAO MAIN MEM AND SP UITH 8 UOROS OF DATA 
♦PERFORM IHE FUNCTION. VERIFY THE RESULTS 

:*************************************************************** 



TEST 127 



032142 


012737 


000127 


001226 


032150 


012737 


032316 


001216 


032156 


012737 


032210 


001220 


032164 


104412 






032166 


005000 






032170 


012702 


032306 




032174 


004737 


034726 




032200 


035052 






032202 


004737 


034762 




032206 


035062 






032210 


004737 


035040 




032214 


042737 


000017 


032230 


032222 


050037 


032230 




032226 


104414 






032230 


010000 






032232 


042737 


000017 


032246 


032240 


050037 


032246 




032244 


104414 






032246 


040440 






032250 


104414 






032252 


061224 






032254 


111205 






032256 


116104 


000004 




032262 


120504 







TST127: 



1): 



2*! 



3): 



MOV 
MOV 
MOV 

MSTCLR 
CLR 
MOV 
JSR 

MEMDAT 

JSR 

SPOAT 

JSR 

BIC 

BIS 

ROMCLK 

010000 

BIC 

BIS 

ROMCLK 

040400 

ROMCLK 

61224 

MOVB 

MOVB 

CMPB 



#127.TSTN0 
#TST 130, NEXT 
«1»,L0CK 



RO 

«5<.R2 
PC.MEMLD 

PC.SPLD 

PC.SETC 

«17.2* 

R0,2« 



♦17, 3» 
RO.SI 

!<2*20> 



(R2).R5 

4(R1),R4 

RS.R4 



iRl CONTAINS BASE OMCll ADDRESS 

jMASTER CLEAR DMCll 

:MEM * SP ADDRESS 

! POINTER TO CORRECT DATA 

;LOAO 8 UOROS OF MAIN MEMORY 

.•POINTER TO DATA 

sLOAD 8 UORDS OF SP 

iPOINTER TO DATA 

I SET C BIT! 

s CLEAR ADDRESS FIELD OF INSTRUCTION 
(ADO ADDRESS TO INSTRUCTION 
.•NEXT UORD IS INSTRUCTION. ROMCLK PC>5304 
iLOAO MAR 

(CLEAR ADDRESS OF INSTRUCTION 
ADD ADDRESS TO INSTRUCTION 
NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 
BR SUB U/C 

NEXT UORD IS INSTRUCTION, ROMCLK PC-5304 
MOVE BR TO P0RT4 
PUT "EXPECTED" IN R5 
PUT "FOUND" IN R4 
DATA CORRECT? 
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SEQ 112 



032264 


001401 








BEQ 


4» 


BR IF YES 


032266 


104013 








EMT 


15 


ALU ERROR 


032270 


104401 






4): 


SCOPl 




SU09-1? 


032272 


005202 








INC 


R2 


,NEXT DATA 


032274 


005200 








INC 


RO 


iNEXT ADDRESS 


032276 


022700 


000010 






CMP 


«10,R0 


.DONE YET? 


032302 


001342 








BNE 


1) 


iBR IF NO 


032304 


104400 








SCOPE 




•SCOPE THIS TEST 


032306 


000 


001 


377 


5»: 


.BYTE 


0.1. 1.0.0.253.125.0 


032311 


000 


000 


253 










032314 


125 


000 




.EVEN 
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;*************************** TEST 130 *************************** 

s*ALU TEST 

j*TEST OF ALU FUNCTION INC A WITH C BIT SET 
*ALU FUNCTION (A PLUS 1) CODE-3 
*L0AD MAIN HEM AND SP UITH 8 UORDS OF DATA 
♦PERFORH THE FUNCTION. VERIFY THE RESULTS 

:*************************************************************** 



TEST 130 









W X£Cw 




MOV 


♦130 TSTNQ 




01 57T7 


V JC"t r b 






MOV 


♦T ST 131. NEXT 




ftl P7'^7 








MOV 


♦1 t . LOCK 


032340 


104412 








MSTCLR 




032342 


005000 








CLR 


RO 


032344 


012702 


032462 






MOV 


«5(.R2 


032350 


004737 


034726 






JSR 


PC.MEMLO 


032354 


035052 








METOAT 


PC.SPLD 


032356 


0047i7 


034762 






JSR 


032362 


035062 








SPDAT 




032364 


004737 


035040 




1$: 


JSR 


PC.SETC 


032370 


042737 


000017 


032404 




BIC 


♦17. 2» 


032376 


050037 


032404 






BIS 


R0.2< 


032402 


104414 








ROMCLK 




032404 


010000 






2$: 


010000 




032406 


042737 


000017 


032422 




BIC 


♦17. 3» 


032414 


050037 


032422 






BIS 


R0.3< 


032420 


104414 








ROHCLK 




032422 


040460 






3*: 


040400 


!<3*20> 


032424 


104414 








ROHCLK 




032426 


061224 








61224 


(R2).RS 


032430 


111205 








novB 


032432 


116104 


000004 






MOVB 


4CR1).R4 


032436 


120504 








CMPB 


RS.R4 


032440 


001401 








BEQ 


4$ 


032442 


104015 








EHT 


15 


032444 


104401 








SCOPl 




032446 


005202 








INC 


R2 


032450 


005200 








INC 


RO 


032452 


022700 


000010 






CMP 


♦10. RO 


032456 


001342 








BNE 


1$ 


032460 


104400 








SCOPE 





Rl CONTAINS BASE DMCll ADDRESS 
MASTER CLEAR DMCll 
MEM * SP ADDRESS 
POINTER TO CORRECT DATA 
LOAD 8 WORDS OF MAIN MEMORY 
POINTER TO DATA 
LOAD 8 WORDS OF SP 
POINTER TO DATA 
SET C BIT! 

CLEAR ADDRESS FIELD OF INSTRUCTION 
ADD ADDRESS TO INSTRUCTION 
NEXT WORD IS INSTRUCTION. ROMCLK PC '5304 
LOAD MAR 

CLEAR ADDRESS OF INSTRUCTION 
ADD ADDRESS TO INSTRUCTION 
NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 
iBR . INC A 

iNEXT WORD IS INSTRUCTION. ROMCLK PC<S304 

(MOVE BR TO P0RT4 

;PUT "EXPECTED" IN R5 

sPUT "FOUND" IN R4 

iDATA CORRECT? 

tSR IF YES 

tALU ERROR 

iSU09-l? 

-.NEXT DATA 

:NEXT ADDRESS 

I DONE YET? 

sBR IF NO 

! SCOPE THIS TEST 



SEQ 113 

C20MC MACRO V04.00 27-JUN-a5 13:16-37 PAGE 27-74 
DMCll ALU TESTS 

032462 001 001 000 5$: .BYTE 1.1. 0.0.126. 126. 253. 253 

032465 000 126 126 
032470 253 253 

.EVEN 
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TEST 131 *************************** 

!*ALU TEST 

;*TEST OF ALU FUNCTION 2A UITH C BIT SET 
:*ALU FUNCTION (A PLUS A) CODE-5 
;*LOAO MAIN MEn AND SP UITH 8 WORDS Of DATA 
:*PERF0Rt1 THE FUNCTION, VERIFY THE RESULTS 

; : *************************************************************** 



: TEST 131 



032472 


012737 


000131 


001226 


TST131 : 


NOV 


♦131.TSTN0 






032500 


012737 


032646 


001216 




MOV 


♦TST132.NEXT 






032506 


012737 


032540 


001220 




MOV 


«1),L0CK 


Rl CONTAINS BASE DMCll ADDRESS 




032514 


104412 








MSTCLR 




MASTER CLEAR DMCll 




032516 


AAC A AA 

005000 








CLR 


RO i 


MEM ♦ SP ADDRESS 




032520 


A4 1 "T AO 

012702 


AT 

03 CO So 






MOV 


«5$.R2 ; 


POINTER TO CORRECT DATA 




'^C Oil 

032524 


A Ail 

004737 


AT A ^ 0£ 

0S4726 






JSR 


PC.MEMLD 


LOAD 8 WORDS OF MAIN MEMORY 




032530 


A9 CAPO 

035052 








MEWAT 




POINTER TO DATA 




032532 


00475' 


094762 






JSR 


PC.SPLD ! 


LOAD 8 WORDS OF SP 




'^C T£ 










SPDAT 




POINTER TO DATA 




AV OC A A 

032540 


004757 


003040 




1* : 


JSR 


PC.SETC 


SET C BIT! 




032544 


/37 


A AAA f ^ 
000017 


052300 




BIC 


♦17. 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 


AT OC CO 

032552 




AV9C&A 

OOeSOO 






BIS 


R0.2I sADD ADDRESS TO INSTRUCTION 




C£. 

0325 5d 


1 AAA 1 A 








ROnCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC«5304 




vx w w 








010000 




LOAD MAR 




032562 


042737 


000017 


032576 




BIC 


♦17.3$ 


CLEAR ADDRESS OF INSTRUCTION 




032570 


050037 


032576 






BIS 


R0,3» 


ADD ADDRESS TO INSTRUCTION 




032574 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC "5304 


032576 


040520 






3$: 


040400! <5*20> tBR . 2A 




032600 


104414 








ROMCLK 


:NEXT WORD IS INSTRUCTION. ROMCLK 


PC»5304 


032602 


061224 








61224 


(MOVE BR TO P0RT4 




032604 


111205 








M0V6 


(R2).R5 jPUT "EXPECTED" IN R5 




032606 


116104 


000004 






M0V6 


4(R1).R4 


PUT "FOUND" IN R4 




032612 


120504 








CMPB 


R5.R4 


DATA CORRECT? 




032614 


001401 








BEQ 


4) 


,BR IF YES 




032616 


104015 








EMT 


'5 


iALU ERROR 




032620 


104401 






4*: 


SCOPl 




iSU09-l? 




032622 


005202 








INC 


R2 


;NEXT DATA 




032624 


005200 








INC 


RO 


iNEXT ADDRESS 




032626 


022700 


000010 






CMP 


♦10. RO 


iDONE YET? 




032632 


001342 








BNE 


1» 


;BR IF NO 




032634 


104400 








SCOPE 




SCOPE THIS TEST 




032636 


000 


000 


376 


5»: 


.BYTE 


0 . 0 . 376 . 376 . 252 . 252 . 124 . 124 




032641 


376 


252 


252 












032644 


124 


124 
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TEST 132 *************************** 

!*ALU TEST 



CZOMC MACRO V04.00 27-JUN-B5 13;16:37 PAGE 27-75 
OnCll ALU TESTS 

;*TEST OF ALU FUNCTION A PLUS C UITH C BIT SET 
;*M.U FUNCTION (A PLUS C) CODE-4 
:*LOAO NAIN NEN AND SP UITH 8 UORDS OF DATA 
:*PERFORn THE FUNCTION. VERIFY THE RESULTS 



; TEST 132 



032646 


012737 


000132 


001226 


TST132: 


MOV 


n32.TSTN0 






032654 


012737 


033022 


001216 




NOV 


♦TST133.NEXT 






032662 


012737 


032714 


001220 




MOV 


♦1».L0CK 


















:R1 CONTAINS BASE DMCll ADDRESS 




032670 


104412 








MSTCLR 


sMASTER CLEAR OMCll 




032672 


005000 








CLR 


RO 


MEM ♦ SP ADDRESS 




032674 


012702 


033012 






MOV 


*5$.R2 


POINTER TO CORRECT DATA 




032 00 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 UORDS OF MAIN MEMORY 




032704 


035052 








ME MOAT 




POINTER TO DATA 




032706 


004737 


034762 






JSR 


PC.SPLO 


LOAD 8 UORDS OF SP 




032712 


035062 








SPOAT 




POINTER TO DATA 




032714 


004737 


035040 




It ; 


JSR 


PC.SETC 


SET C BIT! 




032720 


042737 


A AAA 4 ^ 

000017 


032734 




BIC 


»17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


032726 


AC AA 

050037 


032734 






BIS 


R0.2I 


ADD ADDRESS TO INSTRUCTION 




032732 


104414 








ROnCLK 




NEXT UORD IS INSTRUCTION. ROMCLK 


PC '5304 


032734 


A 4 AAAA 

010000 






2* : 


A 4 AAA A 

010000 




LOAD MAR 




032736 


Ail 

042737 


AA AA 4 ^ 

000017 


032752 




BIC 


♦17.31 


CLEAR ADDRESS OF INSTRUCTION 




032744 


AC AA 

050037 


032752 






DT C 

dI5 


R0.3I 


ADD ADDRESS TO INSTRUCTION 




032750 


104414 








nOnCLK 




NEXT UORD IS INSTRUCTION. ROMCLK 


PC»5304 


032752 


Ail ACAA 

040500 






31 : 


Ail AJI ■ 

040400 I 


<4*20> 


BR A PLUS C 




032754 


4 Ail il 4 il 

104414 












NEXT UORD IS INSTRUCTION. ROMCLK 


PC -5304 


092756 


A£ 4 O^il 

061224 








D1224 




MOVE BR TO P0RT4 




032760 


4 4 4 ^AC 

111205 








nuvD 


(R2),R5 


PUT "EXPECTED" IN R5 






4 4 £ 4 A^ 
110XU4 








nuvD 


4(R1).R4 


PUT "FOUND" IN R4 




032766 


120504 








CNPB 


R5.R4 


DATA CORRECT? 




032770 


001401 








BEQ 


4) 


BR IF YES 




032772 


104015 








EMT 


15 iALU ERROR 




032774 


104401 






4$: 


SCOPl 




,SU09-1? 




032776 


005202 








INC 


R2 


.NEXT DATA 




033000 


005200 








INC 


RO 


NEXT ADDRESS 




033002 


022700 


000010 






CMP 


«10.R0 


DONE YET? 




033006 


001342 








6NE 


1) 


BR IF NO 




033010 


104400 








SCOPE 


s SCOPE THIS TEST 




033012 


001 


001 


000 


5*: 


.BYTE 


1.1.0.0,126.126.253.253 




033015 


000 


126 


126 












033020 


253 


253 















.EVEN 
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TEST 133 ************ 

J* ALU TEST 

!*TEST OF ALU FUNCTION 2'S COMP SUB UITH C BIT SET 
;*ALU FUNCTION (A-B-1) CODE-17 
:*LOAO MAIN MEM AND SP UITH 8 WORDS OF DATA 
;*PERFORM THE FUNCTION. VERIFY THE RESULTS 



; TEST 133 



CZOnC MACRO V04.00 
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SEQ lis 



033022 


012737 


000133 


001226 


TST133: 




#133.TSTN0 






033030 


012737 


033176 


001216 




MOV 


0TST134.NEXT 






033036 


012737 


033070 


001220 




NOV 


«1«,L0CK 


Rl CONTAINS BASE DHCll ADDRESS 




033044 


104412 








MSTCLR 




MASTER CLEAR DMCll 




033046 


005000 








CLR 


RO i 


MEM * SP ADDRESS 




033050 


012702 


033166 






MOV 


*5«.R2 


POINTER TO CORRECT DATA 




033054 


004737 


034726 






JSR 


PC.MEMLD 


LOAD 8 UORDS OF MAIN MEMORY 




033060 


035052 








MEMOAT 




POINTER TO DATA 




033062 


004737 


034762 






JSR 


PC.SPLD 


LOAD 8 UORDS OF SP 




033066 


035062 








SPOAT 




POINTER TO DATA 




033070 


004737 


035040 




1*: 


JSR 


PC.SETC 


SET C BIT! 




033074 


042737 


000017 


033110 




BIC 


#17.2* 


CLEAR ADDRESS FIELD OF INSTRUCTION 


033102 


050037 


033110 






BIS 


R0.2$ 


ADD ADDRESS TO INSTRUCTION 




033106 


104414 








ROnCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC -5304 


033110 


010000 






21: 


010000 




LOAD MAR 




033112 


042737 


000017 


033126 




BIC 


♦17. 31 


CLEAR ADDRESS OF INSTRUCTION 




033120 


050037 


033126 






BIS 


R0,3) 


ADO ADDRESS TO INSTRUCTION 




033124 


104414 








ROnCLK 




NEXT UORO IS INSTRUCTION, ROMCLK 


PC"5304 


033126 


040760 






31: 


040400 !<17*20> 


BR . 2'S COMP SUB 




033130 


104414 








ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK 


PC-5304 


033132 


061224 








61224 




MOVE BR TO P0RT4 




033134 


111205 








HOVB 


CR2).R5 


PUT "EXPECTED" IN R5 




033136 


116104 


000004 






MOVB 


4(R1).R4 


PUT "FOUND" IN R4 




033142 


120504 








CMPB 


R5.R4 


DATA CORRECT? 




033144 


001401 








BEQ 


4* 


,BR IF YES 




033146 


104015 








EMT 


15 


■ALU ERROR 




033150 


104401 






4): 


SCOPl 




,SU09-1? 




033152 


005202 








INC 


R2 


.NEXT DATA 




033154 


005200 








INC 


RO 


,NEXT ADDRESS 




033156 


022700 


000010 






CMP 


«10.R0 


;DONE YET? 




033162 


001342 








BNE 


1) 


;BR IF NO 




033164 


104400 








SCOPE 


s SCOPE THIS TEST 




033166 


377 


000 


376 


5$: 


• BYTE 


-1.0.376.-1.-1.252.124.-1 




033171 


377 


377 


252 












033174 


124 


377 















104 



.EVEN 



{*************************** TEST 134 *************************** 

t*ALU TEST 

i*TEST OF ALU FUNCTION DEC A WITH C BIT SET 
!*M.U FUNCTION (A-1) CODE-7 
i*L0AD MAIN MEM AND SP WITH 8 UORDS OF DATA 
s*PERFORM THE FUNCTION. VERIFY THE RESULTS 



033176 012737 000134 001226 TST134: 

033204 012737 033352 001216 

033212 012737 033244 001220 

033220 104412 

033222 005000 

033224 012702 033342 

033230 004737 034726 



J TEST 134 

MOV «134,TSTN0 

MOV #TST 135, NEXT 

MOV n^.LOCK 

MSTCLR 

CLR RO 

MOV «5).R2 

JSR PC.MEMLD 



:R1 CONTAINS BASE DMCll ADDRESS 

:MASTER CLEAR DMCll 

J MEM * SP ADDRESS 

i POINTER TO CORRECT DATA 

:LOAO 8 UORDS OF MAIN MEMORY 



CZOnC riACRO V04.00 27-JUN-8S 13:16:37 PAGE 27-77 
WCll ALU TESTS 



033234 


0350S2 








MEMDAT 




POINTER TO DATA 


033236 


004737 


034762 






jsn 


PC.SPLO 


LOAD 8 WORDS Of SP 


033242 


035062 








SPOAT 




POINTER TO DATA 


033244 


004737 


035040 




1»: 


JSR 


PC. SET C 


SET C BIT! 


033250 


042737 


000017 


033264 




BIC 


♦17. 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 


033256 


050037 


033264 






BIS 


R0,2* 


ADD ADDRESS TO INSTRUCTION 


033262 


104414 








ROnCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC -5304 


033264 


010000 






2*: 


010000 




LOAD MAR 


033266 


042737 


000017 


033302 




BIC 


#17. 3» 


CLEAR ADDRESS OF INSTRUCTION 


033274 


050037 


033302 






BIS 


R0,3* 


ADD ADDRESS TO INSTRUCTION 


033300 


104414 








RONCLK 




NEXT WORD IS INSTRUCTION, ROMCLK PC "5304 


033302 


040560 






3*: 


040400! 


<7*20> 


BR . DEC A 


033304 


104414 








ROnCLK 




NEXT WORD IS INSTRUCTION, ROMCLK PC '5304 


033306 


061224 








61224 




MOVE BR TO P0RT4 


033310 


111205 








MQVB 


(R2).R5 


PUT "EXPECTED" IN R5 


033312 


116104 


000004 






novB 


4(R1).R4 


PUT "FOUND" IN R4 


033316 


120504 








CMPB 


R5.R4 


iOATA CORRECT? 


033320 


001401 








BEQ 


4$ 


BR IF YES 


033322 


104015 








EMT 


15 


iALU ERROR 


033324 


104401 






41: 


SCOPl 




■SW09-1? 


033326 


005202 








INC 


R2 


NEXT DATA 


033330 


005200 








INC 


RO 


NEXT ADDRESS 


033332 


022700 


000010 






CMP 


«10,R0 


;D0NE YET? 


033336 


001342 








BNE 


1* 


iBR IF NO 


033340 


104400 








SCOPE 




; SCOPE THIS TEST 


033342 


377 


377 


376 


St: 


.BYTE 


- 1 , - 1 . 376 . 376 . 124 . 124 . 251 . 25 1 


033345 


376 


124 


124 










033350 


251 


251 




















.EVEN 






















k*** TEST 135 *************************** 












j*TEST 


OF PROGRAM CLOCK BIT 












1*00 A 


MASTER CLEAR. WRITE THE PROGRAM CLOCK BIT TO A ONE. 












i*VERIFY THAT IT CLEARS. 


AND THEN SETS SOME TIME LATER 












{ ********* 












! TEST 


135 




033352 


012737 


000135 


001226 


TST135: 


nov 


#135.TSTNG 




033360 


012737 


033544 


001216 




nov 


«TST136.NEXT 


















(Rl CONTAINS BASE DMCll ADDRESS 


033366 


104412 








nSTCLR 


iMASTER CLEAR DHCll 


033370 


005037 


001416 






CLP 


TEMP 


•PREPARE FOR 


033374 


005037 


001246 






CLR 


TEMPI 


; DELAY 


033400 


012702 


000011 






nov 


•11. R2 


tSAVE FOR TYPEOUT 


033404 


012761 


000020 


000004 


11: 


nov 


•20,4(R1) 


;LOAO PORT 4 


033412 


152761 


000002 


000001 




BZSB 


«eiTl.lCRl) 


iSET Roni 


033420 


012761 


121111 


000006 




MOV 


•121111. 6(R1} 


iSEL6 _ INSTRUCTION 


033426 


152761 


000003 


000001 




BISB 


•eiTl'BITO.lCRl) 


iSET CLOCK BIT 


033434 


012761 


121224 


000006 




MOV 


•121224. 6(R1) 


(LOAD NEXT INSTRUCTION 


033442 


152761 


000003 


000001 




BISB 


•eiTl'BITO.KRDiREAD CLOCK BIT 


033450 


142761 


000003 


000001 




BICB 


•eiTltSITO.lCRl) 


; CLEAR MAINT BITS 


033456 


016104 


000004 






MOV 


4(R1).R4 


;PUT "FOUND" IN R4 


033462 


005005 








CLR 


R5 


sPUT -EXPECTED" IN R5 


033464 


120504 








CMPB 


R5.R4 


ilS PGM CLOCK CLEAR? 


033466 


001401 








BEQ 


2) 





SEQ 117 
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033470 


104016 








EMT 


16 


:ERROR, PGM CLOCK IS NOT CLEAR 


033472 








2%: 








033472 


104414 








ROtlCLK 




:NEXT WORD IS INSTRUCTION. ROMCLK 


033474 


121224 








121224 




.•P0RT4 LUll 


033476 


122761 


000020 


000004 




CnPB 


«20.4(R1) 


;IS PGM CLOCK SET? 


033S04 


001416 








BEQ 


3t 


:BR IF YES 


033506 


062737 


000001 


001416 




ADO 


♦l.TEMP 


: INCREMENT DELAY 


033514 


005537 


001246 






AOC 


TEMPI 


{INCREMENT DELAY 


033520 


022737 


000006 


001246 




CMP 


♦6. TEMPI 


:IS DELAY DONE 


033526 


001361 








BNE 


2t 


:BR IF NO 


033530 


012705 


000020 






MOV 


*20.R5 


;PUT "EXPECTED" IN R5 


033534 


016104 


000004 






MOV 


4(R1).R4 


J PUT "FOUND" IN R4 


033540 


104016 








EMT 


16 


i ERROR PGM CLOCK NOT SET 


033542 


104400 






31: 


SCOPE 




(SCOPE THIS TEST 
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TEST 136 *************************** 

:*FORCE POUER FAIL TEST 

i*SET FORCE POUER FAIL BIT VERIFY THAT PROCESSOR TRAPS TO 24 
i*GOING OOUN AND COMING UP. VERIFY ALSO THAT BUS INIT WAS 
i*BLOCKEO FROM GETTING TO THE DMC DURING TH^ POUER FAIL 
i*THIS TEST MAY HANG ON SOME PROCESSORS IF AN M9301 IS PRESENT. 
i*TO AVOID HANGING SU02 (POUER ON REBOOT ENABLE) ON THE M9301 
i*MUST BE IN THE OFF POSITION. THIS TEST UILL ALSO FAIL IF THE 
i*CPU POUER FAIL VECTOR IS SET TO ANY LOCATION OTHER THAN 24. 
i*IF THIS TEST HANGS OR FAILS DUE TO EITHER REASON ABOVE THE 
i*F0LL0UIN6 PATCH MAY BE INSTALLED TO SKIP THIS TEST: 
I* 

I* LOG 33362 UAS 33544 SB 33736 

I :*************************************************************** 













1 TEST 


136 




033544 


012737 


000136 


001226 


TST136: 


NOV 


•136.TSTN0 




033552 


012737 


033766 


001216 




MOV 


•TST 137. NEXT 


















iRl CONTAINS BASE DMCll ADDRESS 


033560 


104412 








MSTCLR 




inASTER CLEAR DMCll 


033562 


005037 


001416 






CLR 


TEnP 


(PREPARE FOR DELAY 


033566 


013746 


000024 






MOV 


8*24. -CSP) 


(STORE POUER FAIL ADDRESS 


033572 


012737 


033636 


000024 




NOV 


•11.0*24 


(SET UP FOR FORCE POUER FAIL 


033600 


012761 


000002 


000004 




nov 


•2.4(R1} 


(LOAD P0RT4 


033606 


012711 


001000 






HOV 


«eiT9.(Rl) 


(SET Roni 


033612 


012761 


121111 


000006 




nov 


«121111.6(R1) 


(LOAD INSTRUCTION 


033620 


012711 


001400 






nov 


«BIT9!BITB.(R1} 


(CLOCK INSTRUCTION 


0336c4 


005237 


001416 




51: 


INC 


TEnP 


(UAIT FOR POUER FAIL 


033630 


001375 








BNE 


51 


(BR IF DELAY NOT DONE 


033632 


104017 








EnT 


17 


(ERROR. NO POUER FAIL 


033634 


000426 








BR 


41 




033636 


0127^7 


033654 


000024 


1«: 


nov 


•31. 8*24 


(POWER UP ADDRESS 


033644 


010637 


033652 






nov 


SP.2I 


(STORE STACK 


0336SO 


000000 








HALT 




(UAIT FOR POUER UP SEQUENCE 


033652 


000000 






2t: 


0 






033654 


013706 


033652 




31: 


nov 


2t.SP 


(RESTORE STACK 


033660 


022626 








P0P2SP 




(POP STACK TUICC 


033662 


012637 


000024 






nov 


(SP)*.M24 


(RESTORE TRUE POUER FAIL ADDRESS 


0336M 


022737 


005336 


000024 




CMP 


•.PFAIL.M24 


(IS IT CORRECT? 


0S3«74 


001406 








BEQ 


4t 


(BR IF YES 



SEQ lis 

C20fZ nACttO V04 00 2T MH B5 13:16-37 P«G£ 27-79 
OHC'.l ALU TESTS 



033676 


104017 






EMT 


17 


ERROR. STACK IS INCORRECT 


033700 


012737 


005336 


000024 


MOV 


♦ .P»'AIL,8#24 


RESTORE TRUE POUER FAIL ADDRESS 


C33706 


012706 


001200 




HOV 


♦STACK.SP 


RESTORE STACK 


033712 


005737 


00C042 


4f : 


TST 


a«42 


CHECK FOR ACT- 11 OR DDP 


033"' 16 


001407 






BCQ 


7» 




033720 


012701 


000140 




MOV 


«140. Rl 




033724 


005000 




bii 


CLK 


RO J DELAY TO WAIT FOR RK05 TO BECOME 


033726 


005300 




Bi: 


DEC 


RO 


READY AFTER POUER FAIL 


O'VSO 


001S76 






BME 


8* 




033732 


005301 






DEC 


Rl 




033734 


001373 






BNE 


et 




033736 


013701 


001404 


71: 


nov 


OMCSR.Rl 


.RESTORE ADDRESS. Rl CLOBBERED ON 11/84 


033742 


012711 


0C3000 




nov 


•eiT9!BITlO.(Rl) 


SEL6 • MAINT IR 


033746 


012705 


121111 




HOV 


«121111.R5 


R5 - EXPECTED 


033752 


016104 


000004 




HOV 


4(Rn.R4 


R4 - FOUND 


033756 


020504 






WP 


R5.R4 


MAINT IR SHOULD - 12111 


033760 


001401 






BEQ 


.♦4 


BR IF OK 


03S762 


104025 






EMT 


25 


'if . 0 THEN BUS INIT WAS 
NOT BLOCKED FROM CLEARING 
THE DMC-11 


033764 


104400 






SCOPE 




i SCOPE THIS TEST 
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TEST 137 *************************** 

;*MICR0-PR0CESS0R NOISE TEST 

:*URITE ALL ZERO'S THEN ALL ONE'S THEN A DATA PATTERN 
s*TO THE IBUS* AND IBUS REGISTERS AND TO THE SP AND MAIN MEM 
!*THEN GO BACK AND READ THE DATA PATERNS TO VERIFY THAT 
:*READING AND URITING OF OTHER LOCATIONS AND REGISTERS 
:*0I0 NOT CHANGE THE DATA. 













{ TEST 


137 




033766 


012737 


000137 


001226 


TST137: 


MOV 


♦137,TSTNQ 




033774 


012737 


003364 


001216 




MOV 


♦.EOP.NEXT 


:R1 CONTAINS BASE DMCll ADDRESS 


034002 


104412 








MSTCLR 




; MASTER CLEAR OMCll 


034004 


005002 








CLR 


R2 


!R2 IS INDEX REGISTER 


034006 


042737 


000017 


034032 


1): 


BIC 


♦17.2* 


:CLEAR ADDRESS FIELD 


034014 


156237 


034626 


034032 




BISB 


30I(R2}.2I 


•.ADD IBUS* REG ADDRESS TO INSTRUCTION 


0S4022 


116261 


034634 


000004 




MOVB 


31>(R2},4(R1} 


iLOAO P0RT4 


034030 


104414 








ROnCLK 




{NEXT WORD IS INSTRUCTION. ROMCLK PC«5304 


034032 


121100 






2i: 


121100 




(WRITE IBUS* REGISTER 


034034 


005202 








INC 


R2 


sINC INDEX REGISTER 


034036 


022702 


000005 






CMP 


«5.R2 


.-DONE YET? 


034042 


001361 








BNE 


1> 


(BR IF NO 


034044 


005002 








CLR 


R2 


(R2 IS IBUS REGISTER ADDRESS 


034046 


042737 


000017 


034112 


3t: 


BIC 


♦17. 4» 


(CLEAR ADDRESS FIELD OF INSTRUCTIONS 


034054 


C42737 


000017 


034124 




BIC 


•17.51 




034062 


042737 


000017 


034134 




BIC 


♦17. 6» 




034070 


050237 


034112 






BIS 


R2.4$ 


(ADD IBUS REG ADDRESS TO INSTRUCTION 


034074 


050237 


034124 






BIS 


R2,5» 




034100 


050237 


034134 






BIS 


R2.6$ 




034104 


105061 


000004 






CLRB 


4(R1) 


: CLEAR P0RT4 


034110 


104414 








ROMCLK 




sNEXT WORD IS INSTRUCTION. ROMCLK PC ■5304 


034112 


122100 






4«: 


122100 




(WRITE 0 TO IBUS REG 
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034114 


112761 


000377 


000004 




MOVB 


•377.4(R1) 


034122 


104414 








ROnCLK 




034124 


122100 






5*: 


122100 




034126 


110261 


000004 






novB 


R2.4CR1) 


034132 


104414 








ROHCLK 




034134 


122100 






6t: 


122100 




034136 


005202 








INC 


R2 


034140 


022702 


000010 






CUP 


#10. R2 


034144 


001340 








BNE 


1% 


014146 


005002 








CLR 


R2 


034150 


042737 


000017 


034214 


7J: 


BIC 


«17.8J 


034156 


042737 


000017 


034226 




BIC 


*17,9» 


034164 


042737 


000017 


034236 




BIC 


#17.10$ 


034172 


050237 


034214 






BIS 


R2.8) 


034176 


050237 


034226 






BIS 


R2.9» 


034202 


050237 


034236 






BIS 


R2.10$ 


034206 


105061 


000004 






CLRB 


4(R1) 


034212 


104414 








ROMCLK 




034214 


123100 






8(: 


123100 




034216 


112761 


000377 


000004 




MOVB 


#377.4(R1) 


034224 


104414 








ROHCLK 




034£'26 


123100 






9$: 


123100 




034230 


110261 


000004 






MOVB 


R2.4(R1) 


034234 


104414 








ROHCLK 




034236 


123100 






10$: 


123100 




034240 


005202 








INC 


R2 


034242 


022702 


000020 






CMP 


#20. R2 


034246 


001340 








BNE 


7$ 


034250 


005002 








CLR 


R2 


034252 


104414 








ROMCLK 




034254 


010000 








010000 




034256 


105061 


000004 




11»: 


CLRB 


4CR1) 


034262 


104414 








ROMCLK 




034264 


122500 








122500 




034266 


112761 


000377 


000004 




MOVB 


#377,4(R1) 


034274 


104414 








ROMCLK 




034276 


122500 








122500 




034300 


110261 


000004 






MOVB 


R2.4(R1) 


034304 


104414 








ROMCLK 




034306 


136500 








136500 




034310 


005202 








INC 


R2 


034312 


022702 


000400 






CMP 


#400. R2 


034316 


001357 








BNE 


11» 












:NOU GO 


BACK AND READ 


034320 


104414 








ROMCLK 




034322 


010000 








010000 




034324 


032737 


100000 


001366 




BIT 


#BIT15.STAT1 


034332 


001402 








BEQ 


.♦6 


034334 


104414 








ROMCLK 




034336 


004000 








4000 




034340 


005000 








CLR 


RO 


034342 


042737 


000360 


034400 


12): 


BIC 


#360. 13 » 


034350 


116002 


034626 






MOVB 


30KR0).R2 


034354 


010203 








MOV 


R2,R3 


034356 


006303 








ASL 


R3 



SEQ 119 



LOAD P0RT4 

NEXT UORD IS INSTRUCTION. ROMCLK PC*5304 
URITE ALL ONES TO IBUS REG 
LOAD P0RT4 

NEXT UORD IS INSTRUCTION, ROMCLK PC'5304 
URITE ITS GUN ADDRESS TO IBUS REG 
NEXT ADDRESS 
DONE YET? 
BR IF NO 

START AT SP ADDRESS 0 
CLEAR ADDRESS FIELD 



:ADD ADDRESS TO INSTRUCTION 



■CLEAR P0RT4 

IneXT UORD IS INSTRUCTION. ROMCLK PC»5304 
i URITE ZERO TO SP 
:LOAD P0RT4 

jNEXT UORD IS INSTRUCTION. ROMCLK PC=5304 
: URITE ALL ONES TO SP 
;LOAD P0RT4 

;NEXT UCRD IS INSTRUCTION. ROMCLK PC-5304 
sURITE SP ADDRESS TO ITSELF 
sNEXT SP ADDRESS 
sDONE YET? 
:BR IF NO 

:R2 ' MAIN MEM ADDRESS 

:NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 

:MAR 0 

! CLEAR P0RT4 

sNEXT UORD IS INSTRUCTION. ROMCLK PC=5304 
; URITE ZEROS TO MEM 
:LOAD P0RT4 

;NEXT UORD IS INSTRUCTION. ROMCLK PC»5304 
: URITE ONES TO MEM 
:LOAD P0RT4 

:NEXT UORD IS INSTRUCTION. ROMCLK PC-5304 
: URITE TO ^€M IT 0M4 ADDRESS 
:NEXT MEM ADDRESS 
sDONE YET? 
:BR IF NO 

EVERYTHING 

jNEXT UORD IS INSTRUCTION, ROMCLK PC«5304 

;MAR_0 

;DMC7 

•6R IF YES 

InEXT UORD IS INSTRUCTION, ROMCLK PC-5304 

;MAR HI . 0 (KMC ONLY) 

iRO IS INDEX REGISTER 

: CLEAR ADDRESS FIELD 

:R2 - IBUS* ADDRESS 

;PUT IBUS* ADDRESS IN R3 

;SHIFT ADDRESS TO BITS 4-7 
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034360 


006303 






ASL 


R3 


034362 


006303 






ASL 


R3 


034364 


006303 






ASL 


R3 


034366 


050537 


034400 




BIS 


R3.13$ 


034572 


116005 


034634 




HOVB 


31$(R0).R5 


034376 


104414 






ROMCLK 




034400 


121004 




13$: 


121004 




034402 


016104 


000004 




MOV 


4(R1).R4 


034406 


120504 






CMPB 


R5.R4 


014410 


001401 






BEO 


.♦4 


034412 


104004 






EMT 


4 


034414 


005200 






INC 


RO 


034416 


022700 


000005 




CMP 


*5.R0 


034422 


001347 






BNE 


12$ 


034424 


A V A A A 

005002 






CLR 


R2 


034426 


042737 


000360 034456 


14$: 


BIC 


#360.15$ 


034434 


010203 






MOV 


R2.R3 


034436 


006303 






ASL 


R3 


034440 


006303 






ASL 


R3 


034442 


AA^ TAT 

006303 






ASL 


R3 


034444 


006303 






ASL 


R3 


034446 


AE AT T^ 

050337 


034456 




BIS 


R3.15$ 


034452 


A 4 A ^ AC 

010205 






MOV 


R2.R5 


0344 d4 


4 A A A 4 A 

1044 14 






ROMCLK 




034456 


A '^4 AAA 

021004 




15$: 


021004 




AV A A £f\ 

034460 


A4 £ 4 AA 

016104 


000004 




MOV 


4CR1).R4 


/W A A £ A 

034464 


4 '^ACAA 

120504 






CMPB 


R5.R4 


ATA A 

034466 


AA 4 Jk m 

001401 






BEQ 


.♦4 


AV A A ^ A 

034470 


4 A A A AC 

104005 






EMT 


5 


A V 4 A 

034472 


AAC AO 

005202 






INC 


R2 


AT A A ^A 

034474 


AAA"? AO 

022702 


000010 




CMP 


«10.R2 


034500 


A A 4 T C '9 

001352 






BNE 


14$ 


AT A r A A 

034502 


AAC A AO 

005002 






CLR 


R2 


AT A e Ail 

034504 


AA OT TT 

042737 


000017 034520 


16$: 


BIC 


#17.17$ ;CI 


AT AC 4 O 

034512 


AC AOT7 

050237 


034520 




BIS 


R2.17$ 


AT AC * £. 

034516 


4 AA A 4 A 

104414 






ROMCLK 




AT A f OA 

034520 


AA A£ AA 

040600 




17$: 


040600 




AT A C OO 

034522 


A4 AOAC 

010205 






MOV 


R2.R5 


ATA COA 

034524 


4 A A A 4 A 

104h1^ 






ROMCLK 




AT A C 0£ 

034526 


A£. 4 OOA 

061224 






061224 




AT ACTA 

034530 


A4 £ 4 AA 

016104 


000004 




MOV 


4(R1).R4 


AT ACTA 

034534 


4 OACAA 

120504 






CMPB 


R5.R4 


034536 


AA« A A1 

001401 






BEQ 


.♦4 


034540 


10400/ 






EMT 


7 


034542 


AACOAO 

005202 






INC 


R2 


034544 


022702 


000020 




CMP 


«20,R2 


034550 


AA1 VCC 

001955 






BNE 


16$ 


AT A CCO 

034552 


AACAA9 

005002 






CLR 


R2 


AT ACCA 

034554 


4 AAA 1 A 

104414 






ROMCLK 




AT A ^ C£. 

054 »56 


A1 AAAA 

010000 






010000 




ATi C£A 

03^560 


A* OT*"? 

032/3/ 


100000 001366 




BIT 


«6IT15.STA 


ATA C£.£. 

034566 


A A 4 A AO 

001402 






BEQ 


.♦6 




1 AAA 1 A 






ROMCLK 




0S4572 


004000 






4000 




034574 


010205 




18$: 


MOV 


R2.R5 


034576 


104414 






ROMCLK 




034600 


055224 






055224 





SEQ 120 



AD./ ADDRESS TO INSTRUCTION 
R5 - "EXPECTED" 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

P0RT4 . IBUS* REGISTER 

R4 « "FOUND" 

IBUS* CONTENTS OK? 

BR IF YES 

IBUS* DATA ERROR 

INC COUNTER 

DONE YET? 

BR IF NO 

R2 - IBUS REG ADDRESS 

CLEAR ADDRESS FIELD OF INSTRUCTION 

R3 ' IBUS ADDRESS 

SHIFT ADDRESS TO BITS 4-7 



;ADD ADDRESS TO INSTUCTION 
sR5 - "EXPECTED" 

:NEXT WORD IS INSTRUCTION, ROMCLK PC =5304 
;P0RT4 . IBUS REG 
:R4 - "FOUND" 
:IBUS CONTENTS OK? 
sBR IF YES 
:IBUS DATA ERROR 
:NEXT IBUS REGISTER 
jDONE YET? 
sBR IF NO 
iR2 " SP ADDRESS 
ADRESS FIELD OF INSTRUCTION 
:A00 ADDRESS TO INSTRUCTION 
iNEXT WORD IS INSTRUCTION. ROMCLK PC'5304 
*BR SP 

Irs ■ "EXPECTED" 

{NEXT WORD IS INSTRUCTION. ROMCLK PC =5304 

!P0RT4 _ BR 

}R4 - "FOUND" 

sSP CONTENTS OK? 

J BR IF YES 

:SP DATA ERROR 

sNEXT SP LOCATION 

sDONE YET? 

J BR IF NO 

iR2 - MEMORY ADDRESS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 

;MAR _ 0 

sOMC? 

* BR IF YES 

InEXT WORD IS INSTRUCTION, ROMCLK PC-5304 
sMAR HI . 0 CKMC ONLY) 
;R5 - "EXPECTED" 

:NEXT WORD IS INSTRUCTION, ROMCLK PC*5304 
;P0RT4 MAIN MEM 
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SEQ 121 



034602 


016104 


000004 






»10V 


4(R1),R4 


R4 - "FOUND" 


034606 


120504 








CMPB 


R5.R4 


MAIN hEM CONTENTS OK? 


034610 


001401 








BEQ 


.♦4 


BR IF YES 


034612 


1C4013 








EMT 


13 


MAIN MEM DATA ERROR 


034614 


005202 








INC 


R2 


NEXT MEH ADDRESS 


034616 


022702 


000400 






CMP 


«400.R2 


DONE YET? 


034622 


001364 








BNE 


15) 


BR IF NO 


034624 


104400 








SCOPE 




SCOPE THIS TEST 


034626 


000 


002 


003 


30): 


.BHE 


0.2.3.5.10 




034631 


005 


010 




.EVEN 








034634 


001 


003 


004 


31»: 


.BYTE 


1.3.4,6.10 




034637 


006 


010 




.EVEN 









110 






111 






112 






113 






114 






115 


034642 




116 






117 






118 


034642 


012577 


119 


034646 


012577 


120 


034652 


112577 


121 


034656 


4 4 '^f 

112577 


122 


034662 


000205 


123 






124 






125 


0S4664 




126 






127 






128 






4 <4 A 

129 


034664 


010246 


130 


034666 


005002 


4 V 4 

131 


034670 


4 4 £ 4 

112561 


132 


034674 


042757 


4 V V 

133 


034702 


050237 




hJOH fSIO 


1 CtAA 1 A 


135 


034710 


122100 


136 


034712 


005202 


137 


034714 


022702 


138 


034720 


001363 


139 


034722 


012602 


140 


034724 


000205 


141 






142 






143 


034726 




144 






145 






146 






147 


034726 


013605 


148 


034730 


062746 


149 


034734 


012704 


150 


034740 


104414 


151 


034742 


010000 


152 


034744 


112577 



:SUBR0UTINES 



SETVEC: 



sTHIS SUBROUTINE LOADS THE VECTORS AND VECTOR LEVELS 



144526 
144526 
144520 
144520 



MOV (R5)».80MRVEC 

MOV (R5)*.aOMTVEC 

MOVB (R5)*.aOMRLVL 

MOVB (R5)».aOMTLVL 

RTS R5 



LOAD BASE VECTOR 
LOAD VECTOR ♦ 2 
LOAD VECTOR ♦ 4 
LOAD VECTOR ♦ 6 
sRETURN 



000004 

000017 034710 
034710 



000010 



NPRSET : 



It. 



2%: 



;THIS 


SUBROUTINE LOADS IBUS REGISTERS 0-7 


;UITH 


NPR INFORMATION (INBA, OUTBA. OUT DATA) 


MOV 


R2.-(SP) 


SAVE R2 


CLR 


R2 


START AT IBUS REG 0 


MOVB 


(R5)*.4(R1) 


LOAD P0RT4 


BIC 


♦17.2$ 


CLEAR ADDRESS FIELD OF INSTRUCTION 


BIS 


R2.2) 


ADD ADDRESS TO INSTRUCTION 


ROMCLK 




NEXT WORD IS INSTRUCTION, ROMCLK PC«5304 


122100 




MOVE P0RT4 TO IBUS REG 


INC 


R2 


NEXT ADDRESS 


CMP 


«10.R2 


ALL DONE? 


BNE 


1» 


BR IF NO 


MOV 


(SP)»,R2 


RESTORE R2 


RTS 


R5 {RETURN 



MEMLD: 



iTHIS SUBROUTINE LOADS THE FIRST 8 LOCATIONS OF MAIN 
sMEMORY WITH THIS DATA: 0. -1, ,0. -1,125.252.125,252 



000002 
000010 



144442 



1); 



MOV 8(SP)*.R5 

ADD W.-CSP) 

MOV «10.R4 
ROMCLK 
010000 

MOVB (R5)+.aOMP04 



PUT POINTER TO DATA IN R5 
ADJUST STACK 
DO 8 LOADS 

NEXT WORD IS INSTRUCTION, ROMCLK PC-5304 
MAR < 0 
LOAD P0RT4 
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SEQ 122 



153 034750 


1C4414 




154 034752 


136500 




155 034754 


005304 




156 034756 


001372 




157 034760 


000207 




158 






159 






162 034762 






163 






164 






165 






166 034762 


01360^ 




167 034764 


062746 


000002 


168 034770 


005004 




169 034772 


112577 


144414 


170 034776 


042737 


000017 


171 035004 


050437 


035012 


172 035010 


104414 




173 035012 


123100 




174 035014 


005204 




175 035016 


022704 


000010 


176 035022 


001363 




177 035024 


000207 




178 






179 






180 035026 






181 






182 






183 035026 


104414 




184 035030 


010000 




185 035032 


104414 




166 035034 


040400 




187 035036 


000207 




188 






189 






190 035040 






191 






192 






193 035040 


104414 




194 035042 


010003 




195 035044 


104414 




196 035046 


040403 




197 035050 


000207 




198 






199 






200 035052 


000 


377 


035055 


377 


125 


035060 


125 


252 


201 035062 


000 


000 


035065 


377 


125 


035070 


252 


252 


202 






207 035072 


377 


125 


208 035137 


377 


125 


209 035201 


377 


115 


210 035227 


377 


lis 


211 03S271 


377 


102 



SPLD: 



035012 



It: 



2i: 



CLRC: 



SETC; 



ROMCLK 
136500 
DEC R4 
BNE It 
RTS PC 



NEXT WORD IS INSTRUCTION. ROMCLK PC'5304 
MOV DATA TO MEM. AUTO INC MAR 
DECRE^«NT COUNT 
BR IF NOT DONE 
RETURN 



;THIS SUBROUTINE LOADS THE FIRST 8 SCRATCH PAD 
:LOCATIONS WITH: 0.0. 1.-1.125.125.252,252 



MOV 


aCSP)*.R5 


PUT POINTER TO DATA IN R5 


ADD 


«.-(SP) 


ADJUST STACK 


CLR 


R4 


START AT SP ADDRESS 0 


MOVB 


(R5)*.80MP04 


LOAD P0RT4 WITH DATA 


BIC 


♦17. 2» 


CLEAR ADDRESS FIELD OF INSTRUCTION 


BIS 


R4,2) 


ADD ADDRESS TO INSTRUCTION 


ROMCLK 




NEXT WORD IS INSTRUCTION. ROMCLK PC 


123100 




MOVE DATA TO SP 


INC 


R4 


INCRErCNT COUNT 


CMP 


no.R4 


DONE YET? 


BNE 


1» 


BR IF NO 


RTS 


PC 


RETURN 



:THIS SUBROUTINE CLEARS THE MICRO PROCESSOR C BIT 



ROMCLK 
010000 
ROMCLK 

040400 !<0*20> 
RTS PC 



NEXT WORD IS INSTRUCTION. ROMCLK PC =5304 
MAR.O 

NEXT WORD IS INSTRUCTION. ROMCLK PC=5304 

CLEAR C BIT 

RETURN 



:THIS SUBROUTINE SETS THE MICRO PROCESSOR C BIT 



ROMCLK 
010003 
ROMCLK 

040403 !< 0*20 > 
RTS PC 



NEXT WORD IS INSTRUCTION. ROMCLK PC»5304 
MAR.3 

NEXT WORD IS INSTRUCTION. ROMCLK PC-5304 

SET C BIT 

RETURN 



000 MEHDAT: .BYTE 0.-1.0.-1.125.252.125.252 
252 

377 SPDAT: .BYTE 0.0.-1.-1.125,125.252.252 

125 



.ASCIZ <377>/UNIBUS REGISTER ADDRESSING TIME-OUT/ 

.ASCIZ <377>/UNIBUS REGISTER WIITE. READ TEST/ 

.ASCIZ <377>/MICR0 PROCESSOR TEST/ 

.ASCIZ <377>/MICR0 PROCESSOR URITE, READ TEST/ 

.ASCIZ <377>/BR REGISTER TEST/ 





.EVEN 


116 


EMI: 


116 


EM2: 


111 


EM3: 


111 


EM4: 


122 


EM5: 
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212 035313 


377 


123 


103 


En6: 


.ASCIZ 


<377>/SCRATCH PAD TEST/ 


213 035335 


377 


104 


105 


EM7: 


•ASCIZ 


<377>/DEVICE FAILED TO INTERRUPT/ 


214 035371 


377 


104 


105 


EHIO 


•ASCIZ 


<377>/DEVICE INTERRUPTED TO URONG VECTOR/ 


215 035435 


377 


116 


120 


EMU 


.ASCIZ 


<377>/NPR TEST/ 


216 035447 


377 


115 


101 


EM 12 


.ASCIZ 


<377>/MAIN MEMORY TEST/ 


217 035471 


377 


115 


101 


EM13 


.ASCIZ 


<377>/MAR TEST/ 


218 035503 


377 


101 


114 


EM14 


.ASCIZ 


<377>/ALU TEST/ 


219 035515 


377 


120 


122 


EM15 


.ASCIZ 


<377>/PR0GRAM CLOCK TEST/ 


220 035541 


377 


106 


117 


EM16 


.ASCIZ 


<377>/F0RCE POWER FAIL ERROR/ 


221 035571 


377 


125 


116 


EM17 


.ASCIZ 


< 377 > /UNEXPECTED INTERRUPT/ 


222 035617 


377 


104 


115 


EM20. 


.ASCIZ 


<377>/DMCll CONFIGURATION ERROR/ 


223 035652 


377 


115 


101 


EM21: 


.ASCIZ 


<377>/MAINTENANCE INSTRUCTION REGISTER TEST/ 


224 035721 


377 


120 


117 


EM22: 


.ASCIZ 


<377>/P0UER FAIL INITIALIZE FAILURE/ 


225 














226 035760 


377 


122 


105 


DHl: 


.ASCIZ 


<377>/REGISTER TRAPPED FROM/ 


227 036021 


377 


105 


130 


DH2: 


ASCIZ 


<377>/EXPECTED FOUND REGISTER/ 


228 036057 


377 


105 


130 


0H3: 


.ASCIZ 


<377>/EXPECTED FOUND/ 


229 036100 


377 


105 


130 


DH4: 


.ASCIZ 


<377>/EXPECTED FOUND IBUS* REGISTER/ 


230 036142 


377 


105 


130 


DH5: 


.ASCIZ 


<377>/EXPECTED FOUND IBUS REGISTER/ 


231 036203 


377 


105 


130 


0H6: 


.ASCIZ 


< 377 > /EXPECTED FOUND ADDRESS/ 


232 








.EVEN 




233 














234 036240 


000002 






OTl: 


2 




235 036242 


006 


015 






.BYTE 


6.15 


236 036244 


001262 








SAVRl 




237 036246 


006 


002 






.BYTE 


6,2 


238 036250 


001264 








SAVR2 




239 036252 


000003 






0T2: 


3 




240 036254 


006 


004 






.BYTE 


6,4 


241 036256 


001272 








SAVR5 




242 036260 


006 


004 






.BYTE 


6.4 


243 036262 


001270 








SAVR4 




244 036264 


006 


002 






D VTC 

.DTI t 


6,2 


245 036266 


001262 








SAVRl 




246 036270 


000002 






DT3: 


2 




247 036272 


006 


004 






.BYTE 


6.4 


248 036274 


001272 








SAVR5 




249 036276 


006 


002 






.BYTE 


6.2 


250 036300 


001270 








SAVR4 




251 036302 


000003 






0T4: 


3 




252 036304 


003 


007 






.BYTE 


3,7 


253 036306 


001272 








SAVR5 


254 036310 


003 


Oil 






.BYTE 


3.11 


255 036312 


001270 








SAVR4 




256 036314 


002 


002 






.BYTE 


2.2 


257 036316 


001264 








SAVR2 




258 036320 


000003 






DT5: 


3 




259 036322 


003 


007 






.BYTE 


3.7 


260 036324 


001272 








SAVR5 




261 036326 


003 


007 






.BYTE 


3.7 


262 036330 


001270 








SAVR4 




263 036332 


006 


002 






.BYTE 


6.2 


264 036334 


001264 








SAVR2 


265 036336 


000002 






0T6: 


2 




266 036340 


003 


007 






.BYTE 


3.7 


267 036342 


001272 








SAVR5 


268 036344 


003 


002 






.BYTE 


3.2 
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269 036346 


001270 




SAVR4 






270 036350 


000002 




0T7: 2 






271 036352 


006 


004 


.BYTE 


6.4 




272 036354 


001262 




SAVRl 






273 036356 


006 


002 


.BYTE 


6,2 




274 036360 


001404 




oncsR 






275 036362 






.ERRTAB: 






276 036362 


000000 




0 






277 036364 


000000 




0 






278 036366 


000000 




0 






279 036370 


035072 




EMI 






280 036372 


035760 




DHl 


sEMT 


1 


281 036374 


036240 




OTl 






282 036376 


035137 




EM2 






283 036400 


036021 




DH2 


;EMT 


2 


284 036402 


03e252 




DT2 






285 036404 


035201 




EM3 






286 036406 


036057 




DH3 


sEMT 


3 


287 036410 


036270 




0T3 






286 036412 


035227 




EM4 






289 036414 


036100 




DH4 


;EMT 


4 


290 036416 


036302 




DT4 






291 036420 


035227 




EM4 






292 036422 


036142 




DH5 


;EMT 


5 


293 036424 


036302 




0T4 






294 036426 


035271 




EMS 






295 036430 


036057 




DH3 


:EMT 


6 


296 036432 


036336 




DT6 






297 036434 


035313 




EH6 






298 036436 


036203 




0H6 


sEMT 


7 


299 036440 


036320 




0T5 






300 036442 


035335 




EM7 






301 036444 


000000 




0 


jEMT 


10 


302 036446 


000000 




0 






303 036450 


035371 




EMIO 






304 036452 


000000 




0 


sEMT 


11 


305 036454 


000000 




0 






306 036456 


035435 




EMU 






307 036460 


036057 




0H3 


sEMT 


12 


308 036462 


036270 




DT3 






309 036464 


035447 




EM12 






310 036466 


036203 




DH6 


;EMT 


13 


311 036470 


036320 




DT5 






312 036472 


035471 




EM13 






313 036474 


036203 




DH6 


sEMT 


14 


314 036476 


036320 




DT5 






315 036500 


035503 




EM14 






316 036502 


036057 




DH3 


sEMT 


15 


317 036504 


036336 




DT6 






318 036506 


035515 




EM15 






319 036510 


036100 




DH4 


sEMT 


16 


320 036512 


036302 




DT4 






321 036514 


035541 




EM16 






322 036516 


000000 




0 


sEMT 


17 


323 036520 


000000 




0 






324 036522 


035571 




EM17 






325 036524 


000000 




0 


;EMT 


20 



SEQ 124 
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326 036526 000000 

327 036530 035435 
325 036532 036203 

329 036534 036320 

330 036536 035617 

331 036540 036057 

332 036542 036350 

333 036544 035652 

334 036546 036057 

335 036550 036270 

336 036552 035617 

337 036554 000000 
938 036556 000000 

339 036560 035721 

340 036562 036057 

341 036564 036270 
342 

343 

344 036566 

349 000001 
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0 

EMU 

0H6 .-EMT 21 

0T5 
EM20 

0H3 iEMT 22 

0T7 

EM21 

0H3 sEMT 23 

0T3 

EM20 

0 :EMT 24 

0 

EM22 

0H3 :EMT 25 
DT3 

.EVEN 

CORMAX: 

.ENO 
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SYMBOL 


TABLE 










ADRCNT 


• 004373 


DH5 


036142 


DMS213 


001634 


AUDONE 


003024 


DH6 


036203 


DMS214 


001644 


AUSTRT 


002446 


DISPLA 


001200 


DMS215 


001654 


AUTO.S 


010512 


DISPRE 


000174 


DMS216 


001664 


BINURO 


004714 


DM AC TV 


001306 


DMS217 


001674 


BITO 


■ 000001 


DMCM 


007320 


DMS300 


001506 


BITl < 


• 000002 


OMCROO 


001500 


DMS301 


001516 


BITIO ' 


• 002000 


DMCROl 


001510 


DMS302 


001526 


BITll • 


' 004000 


DMCR02 


001520 


DMS303 


001536 


BIT12 « 


' 010000 


0MCR03 


001530 


DMS304 


001546 


BITli « 


020000 


DMCR04 


001540 


DMS305 


001556 


8IT14 « 


040000 


0MCR05 


001550 


DMS306 


001566 


BIT15 • 


100000 


DMCR06 


001560 


DMS307 


001576 


BIT2 ■ 


000004 


DMCR07 


001570 


DMS310 


00)606 


BITS ■ 


000010 


DMCRIO 


001600 


DMS311 


001616 


BIT4 • 


000020 


DMCRll 


001610 


DMS312 


001626 


BITS • 


000040 


DMCR12 


001620 


DMS313 


001636 


BIT6 • 


000100 


DMCPi3 


001630 


DMS314 


001646 


BIT7 • 


000200 


DMCR14 


001640 


DMS315 


001656 


BITS • 


000400 


DMCR15 


001650 


DMS316 


001666 


BIT9 ■ 


001000 


DMCR16 


001660 


DMS317 


001676 


BM 


007054 


DMCR17 


001670 


DMTLVL 


001402 


BRLVL 


012252 


DMCSR 


001404 


DMTVEC 


001400 


BRU 


0C3730 


DMCSRH 


001406 


DM. END 


001700 


BRX 


003732 


DMCTL 


001410 


DM. MAP 


001500 


CHRCNT 


004712 


DMNUM 


001310 


DONE 


003734 


CKSUR 


007606 


DMP04 


001412 


DTI 


036240 


CKSURl 


007666 


DMP06 


001414 


DT2 


036252 


CKSUR2 


007700 


DMRLVL 


001376 


DT3 


036270 


CKSUR3 


007704 


DMRVEC 


001374 


DT4 


036302 


CKSUR4 


007710 


DMSlOO 


001502 


DT5 


036320 


CKSUR5 


010014 


DMSlOl 


001512 


DT6 


036336 


CLKX 


001242 


DMS102 


001522 


DT7 


036350 


CLRC 


035026 


DMS103 


001532 


EMI 


035072 


CNERR 


007277 


DMS104 


001542 


EMIO 


035371 


CNT . MA 


001702 


DMS105 


001552 


EMU 


035435 


CNVRT • 


104411 


DMS106 


001562 


EM 12 


035447 


CONERR 


007223 


DMS107 


001572 


EM13 


035471 


CONN 


007114 


DMSllO 


001602 


EMM 


035503 


CONTAB 


002776 


DMSlll 


001612 


EM15 


035515 


CONVRT" 


104410 


DMS112 


001622 


EM16 


035541 


CORMAX 


036566 


DMS113 


001632 


EM17 


035571 


CRAM 


006606 


0MS114 


001642 


EM2 


035137 


CREAM 


001320 


DMS115 


001652 


EM20 


035617 


CSR 


006510 


DMS116 


001662 


EM21 


035652 


CSRMAP 


010514 


DMS117 


001672 


EM22 


035721 


CYCLE 


010060 


DMS200 


001504 


EMS 


035201 


DA^ABP 


005216 


DMS201 


001514 


EM4 


035227 


DATACL" 


104415 


DMS202 


001524 


EM5 


035271 


DATAHO 


005204 


DMS203 


001534 


EM6 


035313 


DELAY • 


104413 


DMS204 


001544 


EM7 


035335 


DEVAOR 


004370 


DMS205 


001554 


ERCTOO 


001704 


OEVTAB 


003010 


DMS206 


001564 


ERCTOl 


001710 


DHl 


035760 


DMS207 


001574 


ERCT02 


001714 


DH2 


036021 


DMS210 


001604 


ERCTOS 


001720 


Oni 


030057 


DMS211 


001614 


ERCT04 


001724 


DH4 


036100 


DMS212 


001624 


ERCT05 


001730 



SEQ 126 



ERCT06 001734 

ERCT07 001740 

ERCTIO 001744 

ERCTll 001750 

ERCT12 001754 

ERCT13 001760 

ERCT14 001764 

ERCT15 001770 

ERCT16 001774 

ERCT17 002000 

ERR 002700 

ERRCNT 001232 

ERRFLG 001325 

ERRMSG 005172 

ERRPC 002770 

ERTABO 005322 

EXIT • 0002C5 

EXITER 005252 

FLOAT 002536 

FY 002566 

HALTS 005222 

HILIM 004366 

ICOUNT 001222 

INBUF 007502 

INCHAR 010020 

INIFLG 001324 

INSTER- 104404 

INSTR - 104403 

INSTR2 004166 

INTTY 012266 

KMCM 007330 

LIMITS 004314 

LINE 007016 

LOBITS 004372 

LOCK 001220 

LOKFLG 001326 

LOLIM 004364 

LPCNT 001224 

LSTERR 001234 

MASKX 001244 

MASTEK 006142 

MCRLF 005672 

MCSRX 006072 

MDATA 007544 

MEMDAT 035052 

MEMLD 034726 

MEMLIM 001304 

MEPASS 005733 

MERRPC 006217 

MERRX 006117 

MERR2 005760 

MERR3 006005 

MILK 001322 

MLOCK 006043 

MNEU 006144 

MODU 006704 

MPASSX 006106 



MPFAIL 005675 
MQM 005666 
MR 005755 
MRESET- 004000 
MSTCLR- 104412 
MTITLE 001000 
MTSTN 006130 
MTSTPC 006031 
MVECX 006100 
NEXT 001216 
NOACT 007154 
NODEV 002674 
NPRSET 034664 
NUM 006450 
OK 002646 
ONE 001302 
PACTOO 001702 
PACTOl 001706 
PACT02 001712 
PACT03 001716 
PACT04 001722 
PACT05 001726 
PACT06 001732 
PACT07 001736 
PACTIO 001742 
PACTll 001746 
PACT12 001752 
PACT13 001756 
PACT 14 001762 
PACT15 001766 
PACT16 001772 
PACT17 001776 
PARAM - 104405 
PARAMl 004234 
PARBIT" 040000 
PARERR 004310 
PASCNT 001230 
PERFQR" 004537 
PFTAB 005430 
POPRO - 012600 
POPISP- 005726 
P0P2SP- 022626 
PRIG 006547 
PS - 177776 
PUSHROo 010046 
PUSHIS" 005746 
PUSH2S- 024646 
QV.FLG 001327 
RESREG 005220 
RESTAR 005350 
RESTRT 003534 
RES05 - 104407 
RETURN 001214 
ROMCLK- 104414 
RUN 001316 
SAVACT 001312 
SAVNUM 001314 









Id: ID* Of rnuC 


97. All 




SYMBOL 


TABLE 










SAVPC 


001276 


sun - 


004000 


TST122 


031106 


SAVRO 


001260 


SU12 « 


010000 


TST123 


031262 


SAVRl 


001262 


SU13 - 


020000 


TST124 


031436 


SAVR2 


001264 


SU14 > 


040000 


TST125 


031612 


SAVR3 


001266 


SU15 - 


100000 


TST126 


031766 


SAVR4 


001270 


TDATA 


024542 


TST127 


032142 


SAVRS 


001272 


TEMP 


001416 


TST13 


013470 


SAVSP 


001274 


TEMPI 


001246 


TSTISO 


032316 


SAVOS ■ 


104406 


TEMP2 


001250 


TST131 


032472 


SCOPE - 


104400 


TEMPS 


001252 


TST1S2 


032646 


SCOPl - 


1044G1 


TEMP4 


001254 


TST133 


033022 


SETC 


035G40 


TEMP5 


001256 


TST134 


033176 


SETVEC 


03464? 


TIMER ■ 


104416 


TST135 


033352 


SKIP 


002632 


TKCSR 


001204 


TST1S6 


033544 


50PTSU 


010052 


TK06R 


001206 


TST137 


033766 


SPACNT- 


004713 


TLAST • 


033766 


TST14 


013566 


SPOAT 


035062 


TPCSR 


001210 


TST15 


013664 


SPEED 


007340 


TPOBR 


001212 


TST16 


013762 


SPLD 


034762 


TRPOK 


004730 


TST17 


014060 


STACK - 


001200 


TSTNO 


001226 


TST2 


012426 


STAT 


001240 


TSTl 


012320 


TST20 


014156 


STATl 


001366 


TSTIO 


013176 


TST21 


014254 


STAT2 


001370 


TSTIOO 


025256 


TST22 


014352 


STATS 


0C1372 


TSTlOl 


025432 


TST2S 


014450 


STRTSU 


001236 


TST102 


025606 


TST24 


014546 


SV05 


004402 


TST103 


025762 


TST25 


014672 


SUFLG 


010016 


TST104 


026136 


TST26 


015016 


SUMES 


007205 


TST105 


026312 


TST27 


015146 


SUMESl 


007215 


TST106 


026466 


TST3 


012456 


SUR 


001202 


TST107 


026642 


TST30 


015306 


SUREG 


000176 


TSTll 


013274 


TST31 


015450 


SUGG > 


000001 


TSTllO 


027016 


TST32 


015534 


SUGl - 


000002 


TSTlll 


027172 


TST33 


015734 


SUG2 - 


000004 


TST112 


027346 


TST34 


016134 


SUG3 - 


000010 


TSTllS 


027522 


TST35 


016310 


SUG4 - 


000020 


TST114 


027676 


TST36 


016464 


SUGS - 


000040 


TST115 


030052 


TST37 


016664 


SU06 > 


000100 


TST116 


030226 


TST4 


012606 


SU07 • 


000200 


TST117 


030402 


TST40 


017104 


SU08 - 


000400 


TST12 


013372 


TST41 


017260 


SU09 > 


001000 


TST120 


030SS6 


TST42 


017434 


SUlO - 


002000 


TST121 


030732 







. ABS. 0S6566 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 53760 WORDS ( 210 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
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S£Q 127 



TST43 


017610 


WRKO.F 


005174 


TST44 


017764 


XBX 


005000 


TST45 


020140 


XCSR 


003546 


TST46 


020314 


XERR 


003570 


TST47 


020470 


XHEAO 


006224 


TST5 


012704 


XLOC 


003022 


TST50 


020644 


XPASS 


003562 


TST51 


021072 


XSTATQ 


007454 


TST52 


021242 


XTSTN 


005330 


TST53 


021510 


XVEC 


003554 


TST54 


021732 


ZERO 


001300 


TST55 


022026 


$CRAP • 


177777 


TST56 


022120 


»ENOAO 


003522 


TST57 


022240 


)N 


000137 


TST6 


013002 


»S 


000141 


TST60 


022404 


$Y 


000017 


TST61 


022510 


.BEGIN 


003152 


TST62 


022624 


.CNVRT 


004472 


TST63 


022726 


.CONVR 


004466 


TST64 


023064 


.DATAC 


005552 


TST65 


023210 


.DELAY 


005436 


TST66 


023320 


.EOP 


003364 


TST67 


023426 


.ERRTA 


036362 


TST7 


013100 


.HLT 


004750 


TST70 


023624 


.INSTE 


004154 


TST71 


023752 


.INSTR 


004050 


TST72 


024104 


.INSTl 


004070 


TST73 


024304 


.MSG 


004072 


TST74 


024440 


.MSTCL 


005466 


TST75 


024552 


.PAR AM 


004174 


TST76 


024726 


.PFAIL 


005336 


TST77 


025102 


.RES05 


004434 


TTST 


003612 


.ROMCL 


005504 


TUOSYN- 


OlOCOO 


. SAVOS 


004374 


TYPDAT 


005206 


.SCOPE 


003576 


TYPE - 


104402 


.SCOPl 


003736 


TYPMSG 


005106 


.START 


002002 


VEC 


006526 


.TIMER 


005616 


VECMAP 


012010 


.TRPSR 


004716 


WHICH 


012002 


.TRPTA 


001330 


WRDCNT 


004710 


.TYPE 


003766 



